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A DATA LOADING ROUTINE FOR 
THE IBM 7094 AND 7094-704X SYSTEMS 


by 

Lawrence F. Hatakeyama 
Goddard Space Flight Center 


INTRODUCTION 

The routine discussed in this report resulted from a search for a versatile data loader to be 
used with FORTRAN IV and MAP coded programs to be excuted on an IBM 7094 digital computer. 

The routines available at the time this search was launched were programmed for the older IBM 
systems. It was hoped that this search would yield a routine that could be readily converted and 
extended for the projected use. After a short search, it was realized that the time and effort to 
be expended searching for, analyzing, and modifying a suitable routine would probably be more 
than that required to program a new one. 

A characteristic designed into the projected routine was that it is easy to use. It is given con- 
trol through a simple calling statement and does not require preconceived formats and lists or 
their equivalents for the conversion and loading of data. The programmer utilizing this routine is 
freed of the need to consider in detail the nature of the input data required by his program. The 
object time user is given the option of loading the required data in the format that is most convenient 
to him. 

The calling sequence provides the routine with the initial loading point to a data storage area. 

All variables and arrays to be loaded during a given call on the routine would be placed in such an 
area by the programmer. The routine tends to load consecutive data words into successively higher 
storage locations beginning with the location at the initial loading point. The object time user has 
the means to shift the current loading point of the routine to any location at any time to achieve the 
pattern of loading desired. He may therefore load each location or any arbitrary combination of 
locations within the referenced area reserved for the data. This loading is achieved despite a lack 
of knowledge concerning the absolute locations of the initial loading point, variables, and arrays. 

It does require the familiarization of the user with the displacement of each variable and array 
from the initial loading point. 

The decimal data items recognized by the routine include integers, single-precision floating 
point (or real) numbers, single-precision fixed point numbers, and double-precision floating point 
numbers. No restrictions are placed on the punching of any of these types of data within any given 
decimal data field. The number of items punched into any of the^e data fields is left to the object 
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time user. This data field originates at column 2 on each decimal data card and may extend across 
the card to column 80. Blanks are not allowed within the data field. The subfields of all except 
the last data item contained within a given data field are terminated by commas; the last subfield 
is terminated by a blank or the end of the card. These subfields are not fixed in length; they may 
be as long as necessary to formulate a given item. 

Octal data recognized by the routine consist solely of octal integers. These are arranged in 
the octal data cards in the manner described above for the decimal data. 

Hollerith data recognized by the routine are punched into a data field beginning at column 7 
within each Hollerith data card. Each of these cards also contains a count in column 2 which speci- 
fies the number of words contained within the data field of the card. This count may specify up to 
10 words. If more than 10 words are to be loaded, two or more of these cards must be used. 

The routine is directed to return control to the calling program on processing a card devised 
for this purpose or by encounter with an end-of-file. In the latter case, the status of an indicator 
interrogated by the calling program is altered before the return of control is executed. This altera- 
tion is suspended if the error procedure of the routine has been executed. 


CALLING THE ROUTINE 

Passage of control to the loading routine is directed through an IBJOB subroutine calling se- 
quence. This sequence is generated by the IBJOB processor from the following FORTRAN IV 
statement or its MAP equivalent: 


CALL LOAD (N, A) 

The first argument in the preceding statement, N, is a reference to an indicator. This indica- 
tor is always zeroed by the routine before it begins to process card images. The status of this 
indicator may remain unchanged throughout the subsequent processing of card images and return 
of control to the calling program. A plus one or a minus one, respectively, is loaded at the indica- 
tor location if a processing error or an end-of-file (hereafter referred to as an eof ) is detected 
by the routine. The loading of the eof indication is suppressed if the eof is encountered after 
the error indication has been posted. 

The second argument, A, is a reference for data storage. It may be the location of a variable, 
a location within an array or a common block, an entry point, or an absolute location. All except 
the last may be referenced through the FORTRAN calling statement. The absolute location must 
be referenced through the equivalent MAP instructions. Whatever the case may be, the referenced 
location will be the first location to be loaded with a data word if the routine is not directed to be- 
gin loading at another location. It is the base address used in the computation of effective addresses 
of locations loaded by the routine. 
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EXECUTION OF THE ROUTINE 


On assuming control, the routine checks the calling sequence for the required arguments. 
Failure to provide the two arguments discussed in the preceding section will result in a diagnostic 
and premature job termination. 

The routine then proceeds to the processing of card images after zeroing the indicator dis- 
cussed above and an index-register quantity used in the computation of effective storage addresses. 
Successive card images are processed until a return of control to the calling program is directed. 
The number of card images processed may vary widely. It is governed by the needs of the calling 
program and by the manner in which the object time user chooses to satisfy these needs. Hollerith, 
octal, and decimal data may be loaded as required. There is no loader restriction on the quantity 
of any particular type of data. There is also no requirement that some fixed quantity of a particular 
combination of data be loaded. There is no preconceived list or format to be satisfied. 

Eight types of card images are recognized by the routine. Each type is identified by its column 
one character. The identifying character may be C, D, E, H, P, R, S, or blank. 

The C- and the blank cards contain no data to be loaded. These cards also have no significant 
effect on the execution of the routine. They may serve as spacer cards locatable anywhere within 
the deck and may contain comments punched into columns 2 through 80. 

The D-cards contain the decimal data loaded by the routine. Each of these cards has a variable 
length data field which begins at column 2. This field may extend across the card to column 80 or 
be terminated at some intermediate column by a blank. Comments may be punched into the field 
following the blank terminating the data field. Each data item completely occupies a subfield within 
the data field. Each of these subfields is separated from an adjacent subfield by a comma. A data 
subfield may have zero length, in which case a zero word is specified, or it may be as long as re- 
quired to formulate a data item. Four types of decimal data items are recognized by the routine 
and representations of all four types may be placed within a given data field. The formulation of 
these data items is described in a following section. 

The E- cards contain the octal data loaded by the routine. The arrangement of the data in these 
cards is the same as described above for the D-cards. Only one type of octal data is recognized 
by the routine. Its formulation is discussed in a following section. 

The H- cards contain the Hollerith data loaded by the routine. Each of these cards also con- 
tains a decimal digit punched into column 2. This digit is a count of the Hollerith words contained 
within the card. The maximum count of ten is indicated by a zero. If more than ten Hollerith words 
are to be loaded, two or more H- cards must be used. These words are punched into the H-card 
data field beginning at column 7. Each word consists of six characters including blanks. Since 
each word has the same constant length, commas are neither needed nor utilized to define the field 
occupied by each word. The field of each Hollerith word is therefore contiguous with the fields of 
neighboring words. 
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TheP- and the S-cards are used to alter the placement of data words in storage. This is done 
by changing the value of an index register quantity by the amount specified by an unsigned left- 
adjusted decimal integer punched between columns 2 and 5 inclusive in each of these cards. The 
index register quantity is used in the computation of effective addresses of storage locations loaded 
by the routine. The base address in these address computations is the storage reference provided 
as the second argument in the call on the routine. The index register quantity is zeroed each time 
control is passed to the routine. It is decremented by one by the routine for each data word that 
is loaded. Hence, the routine tends to load consecutive data words into successively higher storage 
locations beginning with the base address. The change affected by an S-card is a shifting of the 
current loading point of the routine to a lower storage address. If this change is executed before 
any data are loaded, it extends the range of the storage area that can be loaded by the routine to 
locations below the base address. The P- cards have the opposite effect. The current loading point 
of the routine is shifted upward with each application of these cards. Data may be loaded between 
these shifts to generate any given pattern of loading desired. 

An R-card is used to direct the routine to return control to the calling program. Only the 
column one character in this card is significant. Hence, the rest of the card may be used for com- 
ments. Unlike an eof 9 no other effects result from the use of an R-card. 

An eof , created by placing a card containing a 7-8 punch in column one in the data deck, also 
causes the routine to return control to the calling program. Before this return is executed, how- 
ever, the indicator location discussed above is loaded with a minus one. If a plus one, indicating 
a processing error, has been loaded before the eof is detected by the routine, the loading of the 
eof indication is suppressed. 

A diagnostic is recorded on the system output with the card image of each card that contains 
a disallowed character or a data item that cannot be properly expressed in the required binary 
word form. Only one diagnostic per card is given because the processing of all subsequent items 
in each faulted card is deleted. The loading of all data from the point of the fault, including those 
from succeeding cards, is also suspended. The processing of succeeding cards for faults, however, 
is not affected. Therefore, the routine continues on through successive cards until a return of con- 
trol to the calling program is executed. 


DECIMAL DATA ITEMS 

A description of the decimal data processed by the routine is given in the following paragraphs. 
This description incorporates those given in the IBM FORTRAN IV and MAP manuals for the ap- 
plicable data items. Hence, users familiar with those computer languages should experience little 
if any difficulty in formulating decimal data items for this routine. 

Four types of decimal data items are recognized by the routine. These have been designated 
decimal integers, single-precision floating point numbers, single-precision fixed point numbers, 
and double-precision floating point numbers. 
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The decimal integers have a simple format. Each integer is composed of a string of decimal 
digits written without a decimal point. A minus sign is required to characterize a negative integer; 
a plus sign is optional for a positive integer. The magnitude of the integer must not exceed 2 35 
minus one, i.e., 34359738367. 

A floating point number may have two components, a principal part and an exponent part. The 
principal part is composed of a string of decimal digits. A decimal point must be embedded at some 
point within the principal part if the exponent part is absent. The decimal point may be omitted if 
the exponent part is present. When it is omitted, the decimal point is assumed to be located at the 
right-hand end of the principal part. The exponent part trails the principal part. It is composed 
of a letter (or two letters) and a trailing decimal integer which specifies the power of ten by which 
the principal part is multiplied. The exponential integers are not restricted to two significant digits. 
However, use of more than two significant digits will result in a conversion error and suspension 
of data loading. 

A single-precision floating point number has a principal part which contains less than 10 deci- 
mal digits. The exponent part, if specified, is written with an T E ! and the appropriate decimal in- 
teger. A double-precision floating point number is specified when the principal part has 10 or more 
decimal digits. The principal part of a double-precision number may have less than 10 decimal 
digits if the exponent part is present and formulated with a 'D T or T EE T and the appropriate decimal 
integer. A conversion error will be generated during the processing of a double-precision number 
if its principal part, taken as an integer by ignoring any decimal point, has a magnitude which ex- 
ceeds 2 62 minus one. A conversion error will also be indicated during the processing of both types 
of floating point numbers if an accumulator register floating point overflow or underflow is detected. 
To avoid this error, the magnitude of the floating point numbers must be limited to between 10 38 
and 10 -38 . It should also be noted that the converted double-precision quantity will possess the sig- 
nificance associated with its type as long as its high- order biased exponent is equal to or larger 
than 33 8 . When this exponent has a lesser value, the double quantity is reduced to single word sig- 
nificance; it low-order part is zeroed. In terms of more familiar values, this loss of significance 
occurs for magnitudes less than 1CT 30 . 

A fixed point number may have three components - a principal part, an exponent part, and a 
binary place part. The latter component characterizes the fixed point number. This part trails 
the principal part if the exponent part is absent. It may precede or follow the exponent part when 
all three parts are present. It is formulated with a T B f and a trailing decimal integer which speci- 
fies the location of the understood binary point within the converted word or its virtual extensions. 
The formulation of the other parts is as described in the two preceding paragraphs. It should be 
noted at this point that the meaning of any double-precision indicator is negated by the presence of 
the binary place part. The decimal point in the principal part may also be omitted even when the 
exponent part is not present. The assumed location of the decimal point will again be at the right- 
hand end of the principal part. 

The restrictions and observations noted for floating point numbers also apply to fixed point 
numbers. This is due to the use of floating point processes to convert the fixed point number. An 
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additional restriction arises from the processes that produce the fixed point number from the float- 
ing point form. This requires the shifting of the number relative to the understood binary point. 

The binary place part specification must not cause significant bits to be shifted past the left-hand 
end of the word. No restriction applies to shifting bits past the right-hand end of the word. How- 
ever, if the right shifting is carried to extremes, complete loss of significance may result. 

Zeroes need not be explicitly indicated on a decimal data card. That is, a zero may be speci- 
fied by a zero length data subfield. Hence, a decimal data card containing no apparent data item 
actually specifies a zero and a card punched with N successive commas only in its data field speci- 
fies N+l zeroes. The decimal integer associated with the exponent part and the binary place part 
of a data item may also be omitted if it is a zero. Finally, a data subfield containing only a minus 
sign specifies a minus zero whereas a subfield containing a T D r or an f EE r specifies two zero words 
to be loaded into two successive storage locations. 

From the preceding discussion, it is apparent that the use of two or more component parts 
to formulate a given data item makes it possible to express the item in several different ways. It 
may be that these various ways are not equally efficient. Whatever the case may be, a quantity such 
as 7 r can be written in single- precision form as follows: 

3.14159265 
31415. 9265E-4 
314159265E-8 
.314159265E1 

Similarly, the following formulations represent the same fixed point number, i.e., they will generate 
words with the same bit configuration and the same understood binary point: 

.01E5B17 

1.E3B17 

1E3B17 

1000B17 

1B17E3 

Words with the same bit configurations as those generated by the fixed point formulas above, but 
with various other understood binary points, are generated by the following representations: 

2.5E2B15 

1.25E2B14 

31.25B12 

3.90625B9 


OCTAL DATA 

Octal data recognized by the routine consist solely of octal integers. Each integer consists of 
a string of octal digits. Up to 12 octal digits may be included within each string. A plus sign is 
neither needed nor used to indicate a positive integer. A negative octal integer is indicated with a 
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minus sign. This minus sign becomes meaningless if the integer contains 12 octal digits and the 
leading digit is a 4 or larger. This is illustrated by the following representations which can be 
used to generate a word containing 36 binary ones: 

-377777777777 

777777777777 

-777777777777 

Zeroes need not be explicitly indicated on an octal data card. A zero length octal data subfield 
specifies a word of zeroes in each bit position. 

DIAGNOSTICS 

The loading routine will record a diagnostic message on the system output before calling for 
the job termination whenever it detects an improper calling sequence. It will record a symbolic 
diagnostic on the system output along with each faulted card image it detects. Appendix C contains 
a page of sample diagnostics recorded along with the offending card image. The meaning of each 
of these symbolic diagnostics is as follows: 

1 - improper card column 1 character 

2 - improper H-card column 2 character 

D - improper character in a decimal data item field 

B - binary place part error 

E - exponent part error 

P - decimal primitive error 

EB - plus and minus signs in the exponent or the binary place part 

8 - octal conversion error 

SNO - conversion error in the loading point relocator 

Most of the symbolic diagnostic should not require further explanation. The decimal primitive 
referred to above is created from the conversion of an integer or the principal part of a decimal 
data item. The primitive cannot occupy more than 35 bit positions for an integer nor more than 
62 positions for the other decimal data items. A loading point relocator error is created whenever 
an improper character is used within the field of this number or whenever the number exceeds 
9999. 

MODIFICATIONS 

The operation of the routine assumes designation of logical tapes 5 and 6 as the system input 
and the system output, respectively. If other logical tapes have been given these designations, the 
routine may be modified at only three places to accommodate the different unit specification. This 
accommodation may be achieved without the alteration of any source or object program cards by 
using the alternatives provided by the $FILE and the $NAME cards (References 1 and 2). 
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TESTING OF THE ROUTINE 

The appendices to this report contain the listings of a test program, the loading routine and 
the table of powers of ten used by the routine, the output generated by the program and the routine 
during a test run, and the input data deck processed by the routine. 

The test program was designed to provide a simple demonstration of most of the capabilities 
of the routine. It contained a cycle in which six successive calls on the routine were executed be- 
fore the recording of loaded data on the system output. This arbitrary arrangement permitted the 
subdivision of the processing and loading of data, the demonstration of the eof capability, and the 
exercise of the loading point relocation feature of the routine. 

The test program was locked in the cycle of loading and recording of data described above un- 
less freed by the routine. This release was given only after the routine had detected at least one 
card image error. It resulted in a transfer of control to a program section where an improper call 
on the routine was executed. As noted in a preceding section, this faulty call results in a diagnostic 
and job termination. 

Excluding the page headings, the outputs recorded by the program and the routine were printed 
on separate pages. The program output for data words generated and loaded by the routine was in 
octal to facilitate checking the bit configurations of the words. Except for the last line, the printed 
output of the routine consisted entirely of symbolic diagnostics with accompanying card images. The 
reader is referred to a preceding section of this report for the meanings of these diagnostics. The 
last line recorded by the routine resulted from the improper call on the routine. 

The test data were subdivided and punched into seven card groupings within the data deck. All 
except the last of these card groupings contained valid data items. The ends of each of these card 
groupings were marked by an eof or an R-card. Since the test program was not set up to act on 
the detection of an eof by the routine, it made no difference which one of the two cards was used to 
terminate card image processing. The user of this routine may choose to incorporate an eof pro- 
cedure of his own choosing within his program according to the dictates of his job. 

Blank and comment bearing cards were included in the data deck to improve the appearance of 
the data deck listing. These cards had no significant effect on the execution of the routine. 

Octal, integer, single-precision floating point, single-precision fixed point, double-precision 
floating point, and zeroes and Hollerith data were punched in an arbitrary, segregated arrangement 
into the first six card groupings in the order listed. This data arrangement was utilized to assist 
checking the input data against the test program output. For the same reason, the number of data 
items punched into all except two cards was set to produce one line of test program output per data 
bearing card. These arrangements were not dictated by any test program or loading routine re- 
quirement or restriction. 

The loading point relocation feature of the routine was exercised before the loading of all ex- 
cept the first and the last groupings of data. This relocation was necessitated by the grouping of 
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the data and by the use of a calling sequence wherein the routine was provided with the same initial 
loading point for each group of valid data. The relocation directed in each instance was sufficient 
to result in the loading of a continuous area in memory. Data gaps of varying lengths and arbitrary 
placement within the storage area designated for the data could have been generated if desired. These 
gaps can be placed between any two data words except those generated by a double-precision data 
item. These relocations could have been avoided by processing all of the valid data items during 
any one of the first six calls on the routine. This avoidance, however, would not have demonstrated 
the relocation feature of the routine. 

REMARKS 

This routine has been executed with the test program listed in Appendix A on a stand alone 
IBM 7094 and on the IBM 7094-7040 direct coupled system at GSFC. The existence of these systems 
with differing system input and output designations also provided an opportunity to verify the use 
of the $NAME card. 

It is suggested that the programmer utilizing this routine group all input data locations in 
a single storage area such as a common block. This arrangement makes all input data locations 
accessible to the routine during any given call on the routine even if the initial loading point is 
different each time. As noted in a preceding section, the object time user must be made aware of 
the displacements of the various locations reserved for the input data from the initial loading point 
provided in each call on the routine. This information is most easily transmitted if all the input 
data locations are contained within a single storage area. The movement of the current loading 
point of the routine is more readily understood and followed by the user if he can concern himself 
with only one arrangement of input data locations. 

The routine is not restricted to the loading of storage areas defined within the body of the call- 
ing program. It has been used to load an independently defined area of arbitrary dimensions. This 
capability when combined with the octal data loading capability of the routine, opens the way to some 
interesting programming possibilities. 

The table of powers of ten utilized by the routine may be replaced by a table contained within 
the IBJOB library. This table was located in subroutines FIOH and FCNV of the IBJOB Library, 
Version 2 and Version 4, respectively. This replacement may be carried out by the inclusion of 
an additional entry point to the applicable library routine. The external name of the entry point 
must be T D1E0\ 
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iso 


TEST TEST 06/21/65 PAGE 1 

EXTERNAL FORMULA NUMBER - SOURCE STATEMENT - INTERNAL FORMULA NUMBER(S) 


CTEST PROG. TO TEST SUBR. LOAD. 

C 

3 FORMAT ( 1H1 / 1H0 , 54X, 10HL0AD TEST ., 48X , 5HP AGE ,12 / 1H0 ) 

5 FORMAT ! 1H0,9X,8015 ) 

C 

DIMENSION A ( 12 ) 9 B ( 14 ) » C ( 800 ) 

COMMON N2 9 A, 8, C 
C 

C CUTPUT THE PAGE HEADING. 

C 

K = 0 tl 

10 K = K + 1 ,2 

WRITE! 6,3 ) K 


1ST TIME THROUGH-LOAD THE VALIO DATA IN 6 SEPARATE GROUPS. 
OUTPUT THE VALID DATA ON ONE PAGE. 

NOTE THAT ARRAYS NOT REF'D. IN THE CALL SEQ. ARE LOADEO. 

2ND TIME THROUGH-TRY READING CARDS CONTAINING INVALID DATA. 
THE INVALID DATA WILL RESULT IN TRANSFER TO *50 CALL LOAD'. 

DO 30 J = 1,6 
CALL LOAD! N1,N2 ) 

I F ( N1 .GT. 0 ) GO TO 50 
30 CONTINUE 

M = N2 - 26 

I F ( M .LT. 1 ) GO TO 10 

WRITE! 6,5 ) A, B, I CIJ), J = 1»M ) 


,4 ,5 


.3 
,6 
.7 
1 8 

,11 

,13 

,14 

,17 


,9 

,12 

,15 

,18 


,10 

,16 

,19 


,20 


,21 


,22 


GO TO 10 


THE FOLLOWING CALL ON LOAD IS PURPOSELY INVALID. 

THE INVALID CALL ON LOAD WILL RESULT IN JOB TERMINATION. 

50 CALL LOAD 

IF! N1 .GT. 0 ) GO TO 90 
GO TO 10 
C 

9Q STOP 
END 


,23 

,24 

,25 ,26 ,27 

,28 

,29 

,30 
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TEST LG AC 


06/21/65 


PAGE 6 


IBMAP SUBR. LQAC - 6/21/65 - L.F.H. 


SUBROUTINE LOAD. 

-CONVERTS AND STORES 8CI, OCT., AND DEC. DATA. THE DEC. 
DATA MAY BE INTEGER, S.P. FLOATING PT., S.P. FIXED 
PT., AND D.P. FLOATING PT. 

-CAN SKIP OVER STORAGE LOCATIONS AS REQUIRED TO LOAD ANY 
GIVEN LOCATION WHICH CAN BE REFERENCED TO THE DATA 
STORAGE LOCATION GIVEN IN THE CALLING SEQUENCE . 

-FILLS THE CALLING PROG. INDICATOR LOC. WITH A ZERO ON 

ENTRY, A 1 WHEN CONV. ERRORS ARE DETECTED, AND A -1 
WHEN AN EOF IS ENCOUNTERED. A 1 OVERRIDES A -1. 

-STOPS THE JOB IF THE CALLING SEQUENCE IS BAD OR IF A 
READING ERROR OCCURS. 


ENTRY SECT. 

...ALLOWED C.C. I CHARACTERS... 
S-MEANS SKIP TO A LOWER STORAGE LOCATION. 
BLANK-CHARACTER I ZES A COMMENTARY CARO. 
R-MEANS RETURN TO THE CALLING ROUTINE. 
P-MEANS SKIP TO A HIGHER STORAGE LOCATION. 
H-OENOTES BCI DATA. 

E-DENOTES OCTAL DATA. 

D-DENOTES DECIMAL DATA. 

C-CHARACTERIZES A COMMENTS CARD. 

A 7-8 PUNCH-DENOTING AN EOF. 

ENTRY LOAD 

81 NAP Y CARD ID. L0AD0002 


00000 

1 00000 

0 

00007 

10001 LOAD 

SAVE 

(1,2)1 

SAVE THE XRS , ETC. 

00001 

0774 

00 

2 

OOCOO 

10000 




00002 

0774 

00 

1 

00000 

10000 




00003 

0774 

00 

4 

00000 

10000 




00004 

0441 

00 

0 

00006 

10001 




0C005 

0020 

00 

4 

0000 i 

10000 




0C006 

0 ocooo 

0 

00000 

10000 




00007 

0604 

00 

0 

00006 

1C001 




00010 

0634 

00 

4 

07000 

icon 




00011 

0634 

00 

4 

01136 

10001 




00012 

0634 

00 

4 

00003 

10001 




00013 

0634 

00 

1 

00002 

10001 




00U14 

0634 

00 

2 

00001 

1C001 




00015 

4500 

00 

4 

00003 

10000 

CAL 

3,4 

GET THE CALLER ERROR INDIC. LOC... 

00016 

0621 

00 

0 

01122 

10001 

STA 

ELOC 

...AND SAVE IT. 

00017 

4320 

00 

0 

00121 

1C001 

ANA 

MASK 

...AND MASK OUT ITS ADORESS. 

00020 

4100 

00 

0 

01022 

10001 

TNZ 

LGOOF 

...NOT GOOD IF NON-ZERO 

00021 

0600 

60 

0 

01122 

10001 

STZ* 

ELOC 

ZERO CALLER ERROR INDIC. LOC. 

00022 

4500 

00 

4 

00004 

10000 

CAL 

4,4 

GET THE INIT* OR REF. STORE LOC... 

B I NAP Y CARD 

ID. L0AD0003 





00023 

0621 

00 

0 

01016 

10001 

STA 

SLOC 

...AND SAVE IT. 

00024 

4320 

00 

0 

00121 

10001 

ANA 

MASK 

...AND MASK OUT ITS ADDRESS. 

00025 

4100 

00 

0 

01022 

10001 

TNZ 

LGQOF 

...BAD IF NON-ZERO. 

0C026 

0600 

00 

0 

00117 

10001 

STZ 

TEST 

INITIALIZE TEST... 

00027 

4634 

00 

0 

00065 

10001 

ZSD 

XRA 

...ANO XRA. 



06/21/65 


TEST 

LOAD 






IBMAP SUBR. 

LOAD - 

6/21/65 

- L.F. 

H. 

00030 

0500 00 0 10000 

10011 


CLA 

* 

• UN05. 

00031 

0621 00 0 01003 

10011 


STA 

*♦3 

00032 

0621 00 0 01004 

10011 


STA 

*+4 

00033 

0074 00 4 11000 

10011 


rsx 

.OPEN, 4 

00034 

5 00000 0 00000 

10000 


MON 

«• 

00035 

0074 00 4 12000 

10011 

RDD 

TSX 

.READ, 4 

00036 

0 01003 0 00000 

moo 


PIE 

**, ,«+3 

00037 

0 01054 0 01047 

10101 


PIE 

PASS , , PDMP 

00040 

3 00016 0 00101 

10001 


I ORT 

CARD,, 14 

00041 

4500 00 0 00122 

10001 


CAL 

MASK 1 

00042 

4602 00 0 00116 

10001 


QRS 

CARO + 13 

00043 

0560 00 0 00101 

10001 


LDQ 

CARD 

00044 

4754 00 0 00000 

10000 


ZAC 


00045 

4763 00 0 00006 

1C000 


LGL 

6 

BINARY CARD . 

ID. LCA00004 





00046 

0774 00 1 00010 

10000 


AXT 

8,1 

00047 

4600 00 0 00120 

10001 


STQ 

MQ 

00050 

0340 00 1 00065 

10C01 

CAS 1 

CAS 

C+1,1 

00051 

7 00000 0 01063 

1C001 


TXL 

CGOOF , , 

00052 

C020 00 1 00075 

10001 


TRA 

CQP+ L , 1 

00053 

2 00001 1 00050 

10001 


T I X 

CAS 1 , 1 , 1 

00054 

7 00000 0 01063 

10001 


TXL 

CGOOF, , 

00055 

000000000062 

10000 


BCI 

1,OOOOOS 

00056 

000000000060 

10000 


BCI 

1,00000 

00057 

000000000051 

10000 


BCI 

1 , OOCOOR 

00060 

C00000000047 

10000 


BCI 

l.OOOOOP 

00061 

C00000000030 

10000 


8CI 

1 , OOOOOH 

00062 

000000000025 

10000 


BCI 

1 ,00000E 

00063 

000000000024 

10000 


BCI 

1 , OOGOOD 

00064 

C0000000002 3 

10000 

c 

BCI 

lfOOOOOC 

00065 

7 00000 0 00674 

10001 

XRA 

TXL 

SOP , , ** 

00066 

7 00000 0 00035 

10001 


TXL 

ROD,, 

00067 

7 00000 0 00075 

10001 


TXL 

RET,, 

00070 

7 00000 0 00672 

10001 


TXL 

POP.t 

BINARY CARD 

ID. LOAD0005 





00071 

7 00000 0 00650 

10001 


TXL 

HOP,, 

00C72 

7 00000 0 00564 

10001 


TXL 

EOP, » 

00073 

7 00000 0 00124 

10001 


TXL 

DOP,, 

00074 

7 00000 0 00035 

1C001 

COP 

TXL 

ROD,, 

00075 

4500 00 0 00123 

1G001 

RET 

CAL 

LM 

00076 

0602 00 0 00010 

1CC00 


SLW 

8 


00077 



RETURN 

LOAD 

00100 

200000000017 

00001 

OATA 

BSS 

15 


00101 


CARD 

EQU 

DATA+1 

00117 

200000000001 

00001 

TEST 

BSS 

1 

00120 

200000C00001 

00001 

MQ 

BSS 

1 

00121 

777777700000 

10000 

MASK 

OCT 

777777700000 

00122 

000060606060 

10000 

MASK 1 

OCT 

000060606060 

00123 

0021 00 0 13000 

10011 

LW 

TTR 

• FFPT • 


SET UP THE INPUT FILE... 


OPEN THE FILE AS REQUIRED 
...WITHOUT REWIND. 

INPUT ONE CARD... 


BLANK OUT ... 

...THE EQUIV. OF C.C. 81 
CHECK C.C. 1... 


...FOR 1 OF 8 CHARACTERS. 
...SAVE THE MQ. 

.. .OUCH. 

... A-QK . 

...TRY AGAIN. 

...HEY. 

CHARACTER TABLE ( C.C. 1 


GO I NCR 
BLANK, 
RETURN. 
GO DECR 


. XRA. 

NEXT CARO. 

. XRA. 


BCI DATA. 

OCT. DATA. 

DEC. DATA. 

COMMENTARY, NEXT CARD. 
RESET L ( 8 ) « • • 


STORAGE... 



CN 


TEST 


LOAD 


06/21/65 


PAGE 8 


IBMAP SUBR. LOAD - 6/21/65 - L.F.H. 


SECT. OOP. 

...ALLOWED DEC. DATA FIELD CHARACTERS... 

COMMA-TERM I NATES DATA ITEM FIELD. 

BLANK- TERMINATES DATA FIELD, AS DOES THE END OF CARD. 
MINUS-REQO. FOR NEG. NOS. AND/OR TO INIT. NEG. EXP. COMP. 
POINT-REQD. FOR CERTAIN S.P. AND D.P. FLOATING PT. DATA. 
B-REQD. FOR B PLACE PART COMP. AND FIXED PT. CONV. 

D-REQD. TO CHARACTERIZE CERTAIN D.P. FLOATING PT. DATA. 
E-REQD. TO INIT. COMP. FOR S.P. FLOATING PT. EXP. 
PLUS-OPTIONAL, HAS NO EFFECT. 

DIGITS-ALL DECIMAL DIGITS. 

... NOTE S . . . 

AN * EE 1 IS EQUIVALENT TO A 'D* . 

A *B * NEGATES THE D.P. MEANING OF A *D» OR AN • EE • . 

THE FIELD OF A ZERO NEED NOT BE EXPLICITLY STATED, BUT 
SHOULD NOT BE LEFT BLANK. THAT IS, THE IMPLICIT 
FIELD OF A ZERO IS OF LENGTH ZERO. 


00124 4500 00 0 00201 

00125 0630 00 0 00155 

00126 4500 00 0 00201 

00127 0630 00 0 00461 

00130 0630 00 0 00417 

00131 0630 00 0 00215 


BINARY CARD ID 

00132 

00133 

00134 

00135 

00136 

00137 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00150 

00151 

00152 

00153 

00154 


LGAD0006 
0630 00 0 00222 
0630 00 0 00235 
0630 00 0 00256 
0630 00 0 00310 
0630 00 0 00321 
0630 00 0 00467 
0630 00 0 00516 
0630 00 0 00473 
0630 00 0 00432 
0630 00 0 00433 
0630 00 0 00444 
0630 00 0 00445 
0443 00 0 01132 
4603 00 0 01124 
4603 00 0 01126 
4603 00 0 01130 
0600 00 0 00535 
4634 00 0 00241 
0140 00 0 01001 


BINARY CARD ID. L0AD0007 

00155 7 OOCOO 0 00157 

00156 7 OCOOO 0 00551 


10001 

DOP 

10001 


10001 

DZZ 

10001 


10001 


10001 



10C01 


10001 


1C001 


10001 


10001 


10001 


10001 


10001 


10001 


10001 


10001 


10001 


10001 


10001 


10001 


10001 


1C001 


10001 


10011 


10001 

DSW 

10001 


1CQ0 1 

ow 


CAL 

M3 

STP 

DSW 

CAL 

M3 

STP 

DCMA 

STP 

DE 

STP 

SW1 


STP 

SW2 

STP 

SW3 

STP 

SW6 

STP 

SW7 

STP 

SW8 

STP 

SW50 

STP 

SW51 

STP 

SW55 

STP 

SW100 

STP 

SW101 

STP 

SW 130 

STP 

SW131 

DLD 

DZERC 

DST 

UNO 

OST 

DEND 

DST 

DBNO 

STZ 

FCNT 

ZSD 

DCNT 

TOV 

*+l 


TXL 

DW , , 

TXL 

DZ, , 

CLA 

M3 


RESET DSW... 

RESET THE REQUIRED SWITCHES / REGS... 


TURN OFF THE OVERFLOW INDICATOR. 




00157 0500 00 0 00201 


* * * 


INV. DSW 



TEST 

LOAO 

IBMAP SUBR. 

LOAD - 

6/21/65 

- L 

00160 

0630 00 0 00155 

1C001 


S TP 

00161 

0074 00 4 00536 

10001 


TSX 

00162 

0774 00 1 00011 

10000 


AXT 

00163 

0340 00 1 00201 

10001 

CAS2 

CAS 

00164 

7 00000 0 01065 

1G001 


TXL 

00165 

0020 00 1 00212 

10001 


TRA 

00166 

2 00001 1 00163 

10001 


TIX 

00167 

7 COOOO 0 00211 

10001 


TXL 

00170 

000000000073 

10000 


BCI 

00171 

C00000000060 

1C000 

BLK 

BCI 

00172 

C00000000040 

10000 


BCI 

00173 

C0000000003 3 

1C000 


BCI 

00174 

C0000000002 5 

10000 


BCI 

00175 

000000000024 

10000 


BCI 

00176 

G00000000022 

10000 


BCI 

00177 

C00000000020 

10000 


BCI 


BINARY CARD ID. L0AD0008 


00200 

000000000011 

10000 

NINE 

BCI 

00201 

7 

00000 

0 

00461 

10001 

M3 

TXL 

00202 

7 

00000 

0 

00457 

10001 

XRB 

TXL 

00203 

7 

00000 

0 

00443 

10001 

XR2 

TXL 

00204 

7 

00000 

0 

00437 

10001 

XRC 

TXL 

00205 

7 

00000 

0 

00417 

10001 


TXL 

00206 

7 

COOOO 

0 

00414 

10001 


TXL 

00207 

7 

00000 

0 

00410 

10001 


TXL 

00210 

7 

00000 

0 

00431 

10001 


TXL 

00211 

0601 00 

0 

00534 

10001 

D9 

STO 

00212 

4500 00 

0 

00201 

10001 


CAL 

00213 

0630 00 

0 

00433 

10001 


STP 

00214 

0630 00 

0 

00445 

10001 


S TP 


00215 

7 

ocooo 

0 

00222 

10001 

SW1 

T*L 

00216 

0074 00 

4 

00733 

10001 


TSX 

00217 

0 

COOOO 

0 

01130 

10001 


PZE 

00220 

0 

00000 

0 

01066 

10001 


PZE 

00221 

7 

00000 

0 

00551 

10001 


TXL 

00222 

7 

00000 

0 

00227 

10001 

SW2 

TXL 


BINARY CARD ID. LOAD0009 

00223 0074 00 4 00733 10001 

00224 0 00000 0 01126 10001 

00225 0 00C00 6 01067 1C001 

00226 7 00000 0 00551 10001 

00227 0074 00 4 00733 10001 PPART 

00230 0 00000 0 01124 10001 

00231 0 COCOO 0 01070 10001 

00232 4534 00 1 00241 10001 

00233 1 00001 1 01001 10011 

00234 4634 00 1 00241 10001 

00235 7 00000 0 00551 1C001 SW3 

00236 0500 00 0 00535 10001 

00237 0400 00 0 01140 10001 

00240 0601 00 0 00535 10001 


TSX 

PZE 

PZE 

TXL 

TSX 

PZE 

PZE 

LXD 

TXI 

SXD 

TXL 

CLA 

ADD 

STO 


06/21/65 


PAGE 9 


.H. 

D S W ... 

SET, 4 
9,1 

NINE+1,1 CHECK THIS CHARACTER... 

DGOOF 1 , , ...ILLEGAL. 

D9+ 1 , 1 ...VALID. 

CAS2 , 1 , 1 ...TRY AGAIN. 

D9 , • GOT TO BE BETWEEN 0-8 INCL. 

1.00000, CHARACTER TABLE ( DEC. DATA FIELD ). 

1,00000 ... 

1,000 00 — • • . 

1 . 00000 . ••• 

UOOOOOE 

1,000000 

ItOOOOOB 

1 , 00000 + ... 


1,000009 
DCMA , , 

DBLK, , ** 

DMIN, ,** 

DPT,,** 

DE, f 
DO,,' 

OB,# 

DPLt , 

TEMP 
M3 

SW101 
SW131 

WORD CONSTRUCTION SUBSECTION. 

SW2,, 

CMPT ,4 
DBNO 
DGOOF 2 
DZ,, 

PPART,, 


CMPT, 4 

DENO 

DG00F3 

DZ,, 

CMPT, 4 

UNO 

DG00F4 
DCNT , 1 
•♦ltlfl 
DCNT, 1 
02 . # 
FCNT 
= 1 

FCNT 


GO COMP. ENO... 

... 

GO COMP. THE D-PRIMITIVE... 

... 

... 

INCREMENT THE DIGIT COUNT... 

... 

... 

INCREMENT THE FRACT. COUNT... 


GO COMP. BNO... 



TRANSFER TABLE. 


RESET SW101 AND SW131... 



CO 


TEST LOAD 


IBMAP SUBR. LOAD - 6/21/65 - L.F 


00241 

7 00000 0 00551 

10001 

DCNT 

TXL 

00242 

0443 00 0 01124 

10001 

INO 

DLD 

00243 

0100 00 0 00247 

10001 


TZE 

00244 

4773 00 0 00010 

10000 


RQL 

00245 

0765 00 0 00010 

10000 


LRS 

BINARY CARD ID. LOADOOIO 




00246 

4100 00 0 01070 

10001 


TNZ 

00247 

4600 00 0 01124 

10001 

SMQ 

STQ 

00250 

7 COOOO 0 00463 

10001 


TXL 

00251 

0074 00 4 00766 

10001 

FLOAT 

TSX 

00252 

4500 00 0 00533 

10001 


CAL 

00253 

0602 00 0 00010 

10000 


SLW 

00254 

0774 00 1 00114 

10000 


AXT 

00255 

0502 00 0 00535 

10001 


CLS 

00256 

7 00000 0 00272 

10001 

SW6 

TXL 

00257 

0402 00 0 01127 

10001 


SUB 

00260 

0100 00 0 00306 

10001 


TZE 

00261 

0767 00 0 00001 

10000 

QQ1 

ALS 

00262 

0734 00 4 00000 

10000 


PAX 

00263 

0443 00 0 01124 

10001 


DLD 

00264 

3 00114 4 00270 

10001 

QQ2 

TXH 

00265 

7 00000 4 00305 

10001 


TXL 

00266 

4241 00 4 14000 

10011 


DFDP 

00267 

7 00000 0 00305 

10001 


TXL 

00270 

4241 00 1 14000 

10011 

QQ3 

DFDP 

BINARY CARD ID. LCAD0011 




00271 

2 00114 4 00264 

10001 


T I X 

00272 

0400 00 0 01127 

10001 

QQ4 

ADD 

00273 

0100 00 0 00306 

10001 


TZE 

00274 

4120 00 0 00261 

1C001 


TMI 

00275 

0767 00 0 00001 

10000 


ALS 

00276 

0734 00 4 00000 

10000 


PAX 

00277 

0443 00 0 01124 

10001 


DLD 

00300 

3 00114 4 00303 

10001 

QQ5 

TXH 

00301 

0261 00 4 14000 

10011 


DFMP 

00302 

7 00000 0 00305 

10001 


TXL 

00303 

0261 00 1 14000 

10011 

QQ6 

DFMP 

00304 

2 00114 4 00300 

10001 


T I X 

00305 

4603 00 0 01124 

10001 

QQ7 

DST 

00306 

0500 00 0 00201 

10001 

FINV 

CLA 

00307 

0630 00 0 00473 

10001 


STP 

00310 

7 00000 0 00466 

1C001 

SW7 

TXL 

00311 

4500 00 0 00201 

10001 


CAL 

00312 

0630 00 0 01010 

10001 


STP 

00313 

4634 00 0 00241 

10001 


Z SO 

BINARY CARD 

ID. LOADOO 1 2 




00314 

0140 00 0 01001 

10011 


TOV 

00315 

0560 00 0 01124 

10001 


LDQ 

00316 

4754 00 0 00000 

10000 


ZAC 

00317 

0763 00 0 00010 

ICOOO 


LLS 

00320 

0402 00 0 01141 

10001 


SUB 




06/21/65 


VO 


TEST LOAD 



I BMAP 

SUBR. 

LOAD - 

6/21/65 

- L.F 

• H. 

00321 

7 OOCOO 0 

01003 

icon 

SW8 

IXL 

* + 3, , 

00322 

0400 00 0 

01131 

10001 


ADD 

BNO 

00323 

7 00000 0 

01002 

10011 


TXL 

*+2, , 

00324 

0402 00 0 

01131 

10001 


SUB 

BNO 

00325 

0100 00 0 

01002 

10011 


TZE 

* + 2 

00326 

4120 00 0 

00366 

10001 


TMI 

RSHFT 

00327 

0340 00 0 

01142 

10001 


CAS 

= 27 

00330 

0761 00 0 

00000 

10000 


NOP 


00331 

7 00000 0 

00352 

10001 


TXL 

SUB,, 

00332 

0621 00 0 

00335 

10001 


STA 

SHFT1 

00333 

0621 00 0 

00340 

10001 


STA 

SHFT2 

00334 

4754 00 0 

30000 

1CC00 


ZAC 


00335 

0763 00 0 

00000 

10000 

SHFT1 

LLS 

»* 

Ou 336 

0602 00 0 

01124 

10001 


SLW 

UNO 

BINARY CARO 1 

[D. L0AD0013 





00337 

0131 00 0 

00000 

10000 


XCA 


00340 

0771 00 0 

00000 

10000 

SHFT2 

ARS 

** 

00341 

0560 00 0 

01125 

10001 


LDQ 

UNQ+1 

00342 

4773 00 0 

00011 

10000 


RQL 

9 

00343 

4765 00 0 

ooon 

10000 


LGR 

9 

00344 

4763 00 0 

00001 

10000 


LGL 

1 

00345 

4773 00 0 

00007 

10000 


RQL 

7 

00346 

0763 00 0 

00010 

lOCOO 


LLS 

8 

00347 

0522 00 0 

00335 

10001 


XEC 

SHFT1 

00350 

0602 00 0 

01125 

10001 


SLW 

UNG+1 

00351 

7 00000 0 

00466 

10001 


TXL 

FIXS,, 

00352 

0402 00 0 

01142 

10001 

SUB 

SUB 

= 27 

00353 

0621 00 0 

00362 

10001 


STA 

SHFT3 

00354 

0131 00 0 

00000 

10000 


XCA 


00355 

0560 00 0 

01125 

10001 


LDQ 

UNO+1 

00356 

4773 00 0 

0001 1 

ICOOO 


RQL 

9 

00357 

4765 00 0 

00011 

10000 


LGR 

9 

00360 

4763 00 0 

00001 

10000 


LGL 

1 

00361 

4773 00 0 

00007 

10000 


RQL 

7 

BINARY CARO 

ID. LGAD0014 





00362 

0763 00 0 

00000 

ICOOO 

SHFT3 

LLS 

»* 

0U363 

0140 00 0 

01066 

10001 


TOV 

DG00F2 

00364 

4603 00 0 

01124 

10001 


DST 

UNO 

00365 

7 COCOO 0 

00466 

10001 


TXL 

FIXS,, 

00366 

0340 00 0 

01143 

10001 

RSHFT 

CAS 

=-8 

00367 

7 00000 0 

00376 

10001 


TXL 

SHFT5 , , 

0U37O 

0761 00 0 

00000 

10000 


NOP 


00371 

0621 00 0 

00373 

10001 


STA 

SHFT4 

00372 

4754 00 0 

00000 

10000 


ZAC 


00373 

0765 00 0 

00000 

10000 

SHFT4 

LRS 

«* 

00374 

4603 00 0 

01124 

10001 


DST 

UNO 

00375 

7 OOCOO 0 

00466 

10001 


TXL 

FIXS,, 

00376 

0400 00 0 

01144 

10001 

SHFT5 

ADD 

= 8 

00377 

0621 00 0 

00404 

10001 


STA 

SHFT6 

00400 

0131 00 0 

00000 

10000 


XCA 


00401 

0771 00 0 

00010 

10000 


ARS 

8 

00402 

0560 00 0 

01125 

10001 


LDQ 

UNO+1 

00403 

4773 00 0 

00011 

10000 


RQL 

9 

00404 

4763 00 0 

OOCOO 

10000 

SHFT6 

LGL 

»* 
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•...TRANSFER FOR A POS. BNO. 


...TRANSFER IF R-SHIFTING IS REQD. 
CHECK THE L-SHIFT REQUIRED... 
...GT. 27. 

...EQ. 27. 

SET UP A LONG L-SHIFT... 

...AND AN AC R-SHIFT. 

LONG L-SHIFT 26 OR LESS. 

SAVE THE H-ORDER SHIFTED PART. 


AC R-SHIFT 26 OR LESS. 
GET THE L-ORDER PART. 
ERASE THE L-OROER EXP... 


REINITIALIZE. 

EXECUTE THE 1ST L-SHIFT AGAIN. 
SAVE THE SHIFTED L-ORDER PART. 

DECR. THE L-SHIFT COUNT BY 27. 
SET UP THE LONG L-SHIFT. 

GET THE L-ORDER PART. 

ERASE THE L-ORDER EXP... 


I • • 
• • • 


COMPLETE THE L-SHIFTING. 

TRANSFER ON OVERFLOW. 

SAVE 80TH SHIFTED PARTS. 

CHECK THE R-SHIFT REQD... 
...TRANSFER IF .LT. 8. 

SET UP THE R-SHIFT FOR 8 OR MORE... 

R-SHIFT THE WORKS... 

...AND STORE THE RESULT. 

RESET AC FOR L-SHIFT... 

...AND STORE THE RESULT. 

SET UP THE REGISTERS... 


L-SHIFT THE WORKS... 



N3 

O 


TEST LOAD 06/21/65 PAGE 12 

IBMAP SUBR. LOAD - 6/21/65 - L.F.H. 

BINARY CARO ID. L0AD0015 


00405 

0601 00 0 01125 

10001 


STO 

UNO+1 

...AND SAVE THE AC ONLY. 

00406 

0600 00 0 01124 

10001 


STZ 

UNO 

ZERO THE H-ORDER PART. 

00407 

7 00000 0 00466 

10001 


TXL 

FIXS,, 







SWITCH 

SETTING SUBSECTION. 

00410 

0500 00 0 00201 

10001 

DB 

CLA 

M3 


00411 

0630 00 0 00215 

10001 


STP 

SW1 


00412 

0630 00 0 00310 

10001 


STP 

SW7 


00413 

7 00000 0 00426 

10001 


TXL 

DE2t , 


00414 

0500 00 0 00201 

10001 

DO 

CLA 

M3 


00415 

0630 00 0 01010 

10001 


STP 

SW200 


00416 

7 00000 0 00421 

10001 


TXL 

DEI,, 


00417 

7 00000 0 00421 

10001 

DE 

TXL 

DEI,, 

■» 

00420 

7 COOOO 0 00414 

10001 


TXL 

DO,, 


00421 

4500 00 0 00201 

10001 

DEI 

CAL 

M3 


00422 

0630 00 0 00215 

10001 


STP 

SW1 


00423 

0500 00 0 00201 

10001 


CLA 

M3 


00424 

0630 00 0 00417 

10001 


STP 

DE 


00425 

0630 00 0 00222 

10001 


STP 

SW2 


00426 

0630 00 0 00432 

10001 

DE2 

STP 

SW100 


00427 

0630 00 0 00444 

10001 


STP 

SW130 


B I NAP Y CARD ID. L0AD0016 






00430 

7 OOCOO 0 00441 

10001 


TXL 

DPT1 , , 


00431 

0500 00 0 00201 

10001 

OPL 

CLA 

M3 


00432 

7 00000 0 00551 

10001 

SW100 

TXL 

DZtt 

* 

00433 

7 OOCOO 0 00435 

10001 

SW101 

TXL 

DPH,, 

• 

00434 

7 00000 0 01071 

10001 


TXL 

DG00F5 , , 

-,+ IN EXP. OR B-PLACE PART 

00435 

0630 00 0 00445 

10001 

DPL 1 

STP 

SW131 


00436 

7 00000 0 00551 

10001 


TXL 

DZ , , 


00437 

0500 00 0 00201 

10001 

DPT 

CLA 

M3 


00440 

0630 00 0 00235 

10001 


STP 

SW3 


00441 

0630 00 0 00461 

10001 

DPT 1 

STP 

DCMA 


00442 

7 COOOO 0 00551 

10001 


TXL 

DZ,, 


00443 

0500 00 0 00215 

10001 

OMIN 

CLA 

SW1 


00444 

7 00000 0 00447 

10001 

SW130 

TXL 

DMIN 1 , , 

* 

00445 

7 00000 0 00451 

10001 

SW131 

TXL 

DMIN2, , 

* 

00446 

7 00000 0 01071 

10001 


TXL 

DGOOF5 , , 

+ IN EXP. OR B-PLACE PART 

00447 

0630 00 0 00467 

10001 

DM INI 

STP 

SW50 


00450 

7 00000 0 00551 

10001 


TXL 

DZ,, 


0C451 

0630 00 0 00433 

10001 

DMIN2 

STP 

SW101 


00452 

4120 00 0 00455 

10001 


TMI 

DMIN3 


BINARY CARD 

10. LOADOO 17 






00453 

0630 00 0 00321 

10001 


STP 

SW8 


00454 

7 00000 0 00551 

10001 


TXL 

DZ,, 


00455 

0630 00 0 00256 

10001 

DMIN3 

STP 

SW6 


00456 

7 OOCOO 0 00551 

10001 


TXL 

oz,. 


00457 

0500 00 0 00201 

10001 

DBLK 

CLA 

M3 


00460 

0630 00 0 00516 

10001 


STP 

SW51 


00461 

7 OOCOO 0 00242 

10001 

DCMA 

TXL 

I NO., 

• 

00462 

7 OOCOO 0 00251 

10001 


TXL 

FLOAT,, 



SIGN AND ROUNDING SUBSECTION 



TEST LOAD 



1BMAP SU8R. 

LOAD - 

6/21/65 

- L 

00463 

4500 00 0 00201 

10001 

PFIX 

CAL 

00464 

0630 00 0 00473 

10001 


STP 

00465 

0630 00 0 01010 

10001 


STP 

00466 

0443 00 0 01124 

10001 

FIXS 

DLD 

00467 

7 00000 0 01003 

10011 

SW50 

TXL 

00470 

4760 00 0 00003 

10000 


SSM 

00471 

0765 00 0 00000 

10000 


LRS 

00472 

4603 00 0 01124 

10001 


DST 

00473 

7 00000 0 00515 

10001 

SW55 

TXL 

00474 

4534 00 1 00241 

10001 


LXD 

00475 

3 00011 1 00513 

10001 


TXH 

BINARY CARD J 

10. LGADOO 18 




00476 

0500 00 0 01010 

10001 


CLA 

00477 

0120 00 0 00515 

1G001 


TPL 

00500 

0500 00 0 00310 

1C001 


CLA 

00501 

0120 00 0 00506 

10001 


TPL 

00502 

0500 00 0 01124 

10001 


CLA 

00503 

0760 00 0 00011 

10000 


FRN 

00504 

0601 00 0 01124 

10001 


STO 

00505 

7 00000 0 00515 

10001 


TXL 

00506 

0500 00 0 01124 

10001 

RND 

CLA 

00507 

0760 00 0 00010 

10000 


RND 

00510 

0140 00 0 01070 

10001 


TOV 

00511 

0601 00 0 01124 

10001 


STO 

00512 

7 00000 0 00515 

10001 


TXL 

00513 

0500 00 0 00201 

10001 

INV 

CLA 

00514 

0630 00 0 01010 

10001 


STP 

00515 

0074 00 4 01004 

10001 

REL 

TSX 

00516 

7 00000 0 00126 

1CC01 

SW51 

TXL 

00517 

7 00000 0 00035 

10001 


TXL 


00520 

4603 

00 

0 01134 

10001 

CHEK 

DST 

BINARY CARD 

ID. LOADOO 19 




00521 

4500 

00 

0 00000 

10000 


CAL 

00522 

0044 

00 

0 oocoo 

10000 


PAI 

00523 

0621 

00 

0 00532 

10001 


STA 

00524 

4054 

00 

000004 

10000 


LFT 

00525 

0020 

00 

0 01067 

10001 


TRA 

00526 

4C54 

00 

000002 

10000 


LFT 

00527 

0020 

00 

0 01067 

10001 


TRA 

00530 

0600 

00 

0 01135 

10001 


STZ 

00531 

0443 

00 

0 01134 

10001 


DLD 

00532 

0020 

00 

0 00000 

10000 

THERE 

TRA 

00533 

0021 

00 

0 00520 

10001 

LW1 

TTR 

00534 

200000000001 

00001 

TEMP 

8SS 

00535 

200000000001 

00001 

FCNT 

BSS 


06/21/65 
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TEST LOAD 06/21/65 PAGE 

I6MAP SUBR. LOAD - 6/21/65 - L* F.H. 


SECT. SET. 

SET-IS ENTEREO THROUGH .. .TSX SET, 4 
...AXT N « 1 

-EXECUTES THE *AXT N,l* INSTRUCTION TO SET UP THE 

COMPARISON OF A BCD CHARACTER SHIFTED INTO THE AC 
AGAINST N ALLOWED BCD CHARACTERS. 

-IS USED BY BOTH SECT. OOP AND EOP FOR SAVING, RESTOR- 
ING, AND LOADING THE MQ WITH BCD DATA FROM •CARD' 
TO • CARD+ 13 • . 


00536 

0774 00 2 

00000 

10000 

SET 

AXT 

• 2 

INITIALIZE XRB AND XR2... 

00537 

4634 00 2 

00202 

10001 


SXD 

XRB , 2 

... 

00540 

0774 00 2 

00005 

10000 


AXT 

5,2 

... 

00541 

4634 00 2 

00203 

10001 

OX 

SXD 

XR2 , 2 

... 

00542 

0522 00 4 

OOOOl 

10000 

OY 

XEC 

1 1 4 

SET UP XR1... 

00543 

0560 00 0 

00120 

10001 


LOQ 

MQ 

RESTORE THE MQ. 

BINAPY CARD ID. L0AD0020 






00544 

4754 00 0 

00000 

loooo 


ZAC 


CLEAR THE AC. 

00545 

4763 00 0 

00006 

10000 


LGL 

6 

SHIFT IN A CHARACTER. 

00546 

4600 00 0 

00120 

10001 


STQ 

MQ 

SAVE THE MQ. 

00547 

4634 00 4 

00204 

10001 


SXD 

XRC , 4 

SAVE XR4. 

00550 

0020 00 4 

00002 

10000 


TRA 

2,4 


00551 

4534 00 4 

00204 

10001 

07 

LXO 

XRC, 4 

RESTORE XR4. 

00552 

4534 00 2 

00203 

10001 


LXD 

XR2 , 2 

RESTORE XR2... 

00553 

2 OOOOl 2 

00541 

10001 


T I X 

OX, 2,1 

...DECR-LOOP OR... 

00554 

0774 00 2 

00006 

10000 


AXT 

6,2 

...RESET XR2 

00555 

4634 00 2 

00203 

10001 


SXD 

XR2 , 2 

...AND SAVE IT. 

00556 

4534 00 2 

00202 

10001 


LXD 

XRB, 2 

RESTORE XRB. 

00557 

0500 00 2 

00102 

10001 


CLA 

CARD+1,2 

GET THE NEXT WORD... 

00560 

0601 00 0 

00120 

10001 


STO 

MQ 

...AND STORE IT IN LOC( MQ 

00561 

1 77777 2 

01001 

10011 


TXI 

* + l , 2 ?-l 

DECR. XRB... 

00562 

4634 00 2 

00202 

10001 


SXD 

XRB, 2 

...AND SAVE IT. 

00563 

7 00000 0 

00542 

10001 


TXL 

DY,, 

LOOP. 



TEST LOAD 06/21/65 PAGE L5 

1BMAP SUBR. LOAD - 6/21/65 - L.F.H. 


SECT. EOP. 

...ALLOWED OCT. DATA FIELD CHARACTERS... 
COMMA-TERMINATES OCTAL OATA ITEM FIELD. 

BLANK-TERM I NATES THE OCTAL DATA FIELD. 

MINUS-REQO. FOR NEG. ITEMS OF LESS THAN 12 DIGITS. 
DIGITS-ALL OCTAL DIGITS. 


N5 

CO 


00564 

4500 

00 

0 

00201 

10001 

EOP 

CAL 

M3 

RESET 

ESW... 

0C565 

0630 

00 

0 

00575 

10001 


STP 

ESW 

• • • 


00566 

0500 

00 

0 

00201 

10001 

ESET 

CLA 

M3 

RESET 

SWITCHES / REGISTERS... 


BINARY CARD ID. LOAD0021 


00567 

0630 00 

0 

00620 

10001 


STP 

ESW1 

• • • 

00570 

4500 00 

0 

00201 

10001 


CAL 

M3 

• • # 

00571 

0630 00 

0 

00637 

10001 


STP 

ESW2 

• • • 

00572 

0630 00 

0 

00643 

1C001 


STP 

ESW3 

♦ • • 

00573 

0600 00 

0 

01135 

10001 


STZ 

EWD 

• • • 

00574 

0140 00 

0 

01001 

10011 


TOV 

* + l 

TURN OFF THE OVERFLOW INDICATOR. 

00575 

7 OOCOO 

0 

00577 

10001 

ESW 

TXL 

EW,, 

• 

00576 

7 00000 

0 

00551 

1C001 


TXL 

0 Z,, 


00577 

0500 00 

0 

00201 

10001 

EW 

CLA 

M3 

INV. ESW... 

00600 

0630 00 

0 

00575 

10001 


STP 

ESW 

... 

00601 

0074 00 

4 

00536 

10001 


TSX 

SET , 4 


00602 

0774 00 

1 

00004 

10000 


A XT 

4,1 


00603 

0340 00 

1 

00614 

10001 

CAS3 

CAS 

SVN+1,1 

CHECK THE AC CHARACTER... 

00604 

7 OOCOO 

0 

01072 

10001 


TXL 

EGOQF, , 

...ILLEGAL. 

00605 

0020 00 

1 

00620 

10001 


TRA 

E7+1 , 1 

...VALID. 

00606 

2 00001 

1 

00603 

10001 


TIX 

CAS3 ,1,1 

...TRY AGAIN. 

00607 

7 COOOO 

0 

00617 

1C001 


TXL 

E7., 

...GOT TO BE 0 - 6. 

00610 

000000000073 

10000 


BCI 

1,00000, 

CHARACTER TABLE t OCT. DATA FIELD 

00611 

C00000000060 

10000 


BCI 

1,00000 

• • • 


BINARY CARC ID.. LOAD0022 


00612 

000000000040 

10000 


BCI 

1,00000- 

• # • 

00613 

C0OOCOOOOOO7 

10000 

SVN 

BCI 

1,000007 

s • m 

00614 

7 00000 

0 00636 

10001 


TXL 

ECMA , , 

TRANSFER TABLE 

00615 

7 00000 

0 00634 

10001 


TXL 

EBLK , , 

• • • 

00616 

7 00000 

0 00645 

10001 


TXL 

EMIN,, 

• • • 

00617 

0601 00 

0 00534 

10001 

E7 

STO 

TEMP 


00620 

3 00000 

0 01072 

10001 

ESW1 

TXH 

EGOOF,, 

♦TRANSFER TO TROUBLE. 

00621 

4500 00 

0 01135 

10001 


CAL 

EWD 

BUILD THE EWD... 

00622 

0767 00 

0 00002 

10C00 


ALS 

2 

• • • 

00623 

0140 00 

0 01072 

10001 


TOV 

EGOOF 

• • • WH AM • 

00624 

0767 00 

0 00001 

10000 


ALS 

1 

• • • 

00625 

0400 00 

0 00534 

10001 


ADD 

TEMP 

• * • 

00626 

0602 00 

0 01135 

10001 


SLW 

EWD 

• • • 

00627 

0140 00 

0 00631 

10001 


TOV 

EINV 

• • • 

00630 

7 00000 

0 00551 

10001 


TXL 

DZ,, 

♦••DONE. 

00631 

4500 00 

0 00201 

10001 

EINV 

CAL 

M3 

INV. ESMU*. 

00632 

0630 00 

0 00620 

10001 


STP 

ESW1 

• • • 

00633 

7 00000 

0 00551 

10001 


TXL 

DZ,, 




to 


TEST LCAO 
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IBMAP SUBR. LOAD - 6/21/65 - L.F.H. 

» « » 

00634 0500 00 0 00201 10001 EBLK CLA M? INV. ESW3. . * 

BINARY CARD ID. L0AD0023 


00635 

0630 00 

0 

00643 

10001 


STP 

ESW3 

... 

00636 

0500 00 

0 

01135 

10001 

ECMA 

CLA 

EWD 

GET THE EWD... 

00637 

7 00000 

0 

01002 

10011 

ESW2 

TXL 

*+2, , 

♦...SKIP OR... 

00640 

4 760 00 

0 

00003 

10000 


SSM 


...SET SIGN MINUS... 

00641 

0601 00 

0 

01124 

10001 


STO 

ITEM 

...AND STORE IT. 

00642 

0074 00 

4 

01004 

10001 


TSX 

STOR *4 

GO RELOCATE THE ITEM. 

00643 

7 00000 

0 

00566 

10001 

ESW3 

TXL 

ESETt, 

♦RESET SWITCHES / REG. OR... 

00644 

7 00000 

0 

00035 

10001 


TXL 

RDD* , 

...GO READ ANOTHER CARD. 

00645 

0500 00 

0 

00201 

10001 

EMIN 

CLA 

M3 

INV. ESW2... 

00646 

0630 00 

0 

00637 

1QQ01 


STP 

ESW2 

• * • 

00647 

7 00000 

0 

00551 

10001 


TXL 

DZ, , 





01135 


EWD 

EQU 

TMP2 



SECT. HOP. 

HOP-CHECKS C.C. 2 FOR BCI WORD COUNT. 

-TAKES A ZERO IN C.C. 2 TO BE .EQ. 10. 

-EXPECTS THE BCI WORD COUNT TO BE .LE. 10/CARO. 
-EXPECTS BCI FIELDS TO BEGIN FROM C.C. 7. 

-PLACES BCI WORDS IN ITEM FOR RELOCATION BY STOR. 


00650 

4754 00 

0 00000 

10000 

HOP 

ZAC 


CLEAR THE AC. 

00651 

4763 00 

0 00006 

10000 


LGL 

6 

SHIFT IN C.C. 2. 

00652 

0340 00 

0 00200 

10001 


CAS 

NINE 

COMPARE WITH 9. 

00653 

7 00000 

0 01064 

10001 


TXL 

HGOOF,, 

...TOO LARGE. 

00654 

7 00000 

0 00656 

10001 


TXL 

NINER, , 

...TIS NINE. 

00655 

0100 00 

0 00667 

10001 


TZE 

TENNER 

...TIS ZERO, DENOTING ' 

00656 

0734 00 

1 00000 

10000 

NINER 

PAX 

»1 

SET UP XR1... 

00657 

0734 00 

2 00000 

10000 


PAX 

»2 

...AND XR2 . 

BINARY CARD 
00660 

ID. L0AD0024 

1 00102 1 01001 

10111 


TXI 

•+lf lfCARD+1 

COMPUTE ADDR... 

00661 

0634 00 

1 01001 

10011 


SXA 

* + 1,1 

...FOR STORAGE... 

00662 

4500 00 

2 00000 

10000 


CAL 

** » 2 

...HERE. 

00663 

0602 00 

0 01124 

10001 


SLW 

ITEM 

PLACE BCI WORD IN ITEM 

00664 

0074 00 

4 01004 

10001 


TSX 

STOR, 4 

LET STOR RELOCATE IT. 

00665 

2 00001 

2 41003 

10011 


T I X 

— 3,2,1 

NEXT WORD. 

00666 

7 00000 

0 00035 

10001 


TXL 

ROD,, 

NEXT CARD. 

00667 

4534 00 

1 00671 

10001 

TENNER 

LXD 

HlOt 1 

SET UP XR1 . • • 

00670 

4534 00 

2 00671 

10001 


LXD 

H 10 , 2 

...AND XR2. 

00671 

7 00012 

0 00660 

10001 

H10 

TXL 

NINER+2,,10 




TEST LOAD 
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00672 0500 00 0 

00673 7 00000 0 

00674 4500 00 0 

00675 0630 00 0 

00676 0600 00 0 

00677 0600 00 0 

00700 4754 00 0 

00701 4763 00 0 

00702 0340 00 0 

BINARY CARD ID. L0AD0025 

00703 7 00000 0 

00704 0761 00 0 

00705 0601 00 0 

00706 4600 00 0 

00707 0074 00 4 

00710 0 00000 0 

00711 0 00000 0 

00712 0500 00 0 

00713 0402 00 0 

00714 0120 00 0 

00715 0560 00 0 

00716 7 00000 0 

00717 0340 00 0 

00720 7 00000 0 

00721 7 00000 0 

00722 7 00000 0 

00723 0534 00 1 

00724 7 00000 0 

00725 0535 00 1 


00201 

10001 

POP 

CLA 

01002 

10011 


TXL 

00201 

10001 

SOP 

CAL 

00724 

10001 


STP 

01134 

10001 


srz 

01135 

10001 


STZ 

00000 

10000 

SI 

ZAC 

00006 

10000 


LGL 

00200 

10001 


CAS 


00717 

10001 


TXL 

00000 

10000 


NOP 

00534 

10001 


STO 

00120 

10001 


STQ 

00733 

10001 


TSX 

01134 

10001 


PZE 

01073 

10001 


PZE 

01135 

10001 


CLA 

01145 

10001 


SUB 

01073 

10001 


TPL, 

00120 

10001 


LDQ 

00700 

10001 


TXL 

00171 

10001 

SBLK 

CAS 

01073 

10001 


TXL 

01002 

10011 


TXL 

01073 

10001 


TXL 

01135 

10001 


LXA 

01002 

10011 

SWA 

TXL 

01135 

10001 


LAC 


BINARY CARD ID. LQAD0026 


00726 

4634 00 

l 

01002 

10011 

00727 

4534 00 

1 

00065 

10001 

00730 

1 OCOOO 

1 

01001 

icon 

00731 

4634 00 

1 

00065 

10001 

00732 

7 00000 

0 

00035 

01135 

10001 


SXD 

LXD 

TXI 

SXD 

TXL 

EQU 


to 

01 


SNO 


06/21/65 
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SECT. CMPT • 

CMPT-IS ENTEREO THROUGH. . .TSX CMPT, 4 
• • • PZE LOCI 
• . • PZE L0C2 

-MULTS. LOCI O-PRIMITIVE BY 10 AND AOOS TEMP TO IT. 
-MAINTAINS THE FORMAT OF THE PRIMITIVE. 

-TRANSFERS ON OVERFLOW TO L0C2. 


THE D-PRIMITIVE FORMAT IS AS FOLLOWS - A 27 BIT L-ORDER 
PART ANO A 35 BIT H-ORDER PART. CMPT BUILDS THE 
PRIMITIVE IN THE L-ORDER PART ANO TRANSFERS ALL OVER- 
FLOW INTO THE H-ORDER PART. AN OVERFLOW IN THE 
H-ORDER PART RESULTS IN AN APPROPRIATE DIAGNOSTIC. 


00733 

0140 

00 

0 

01001 

10011 

CMPT 

TOV 

* + l 

TURN OFF THE OVERFLOW INDICATOR. 

00734 

0443 

60 

4 

00001 

10000 


OLD* 

1»4 

GET THE PRIMITIVE... 

00735 

4603 

00 

0 

01134 

10001 


DST 

TMP1 

... 

00736 

C774 

00 

1 

00002 

10000 


AXT 

2 ? 1 

SET UP XR1... 

00737 

4100 

00 

0 

01002 

10011 


TNZ 

*+2 

• • • 

00740 

1 77777 

1 

01001 

10011 


TXI 

*+l,l,-l 

...RESET XRl IF DESIRABLE... 

00741 

4500 

00 

1 

01136 

10001 

CMPT 1 

CAL 

TMPl+2,1 

...TO MULT. THE D-PRIMITIVE BY 10. 

00742 

0767 

00 

0 

00003 

ICOOO 


ALS 

3 

• • * 

00743 

0400 

00 

1 

01136 

10001 


ADD 

TMP1 + 2 » 1 

• • # 

00744 

0400 

00 

1 

01136 

10001 


ADD 

TMPl+2,1 

• • • 

00745 

0602 

00 

1 

01136 

10001 


SLW 

TMPl+2,1 

• • • 

00746 

2 00001 

1 

00741 

10001 


T I X 

CMPT 1 , 1 , 1 


00747 

0400 

00 

0 

00534 

10001 


ADD 

TEMP 

ADO TEMP TO THE L-OROER PART... 

00750 

0602 

00 

0 

01135 

10001 


SLW 

TMP2 

...AND SAVE THE RESULT. 

BINARY CARD i 

[D. L0AD0027 






00751 

4320 

00 

0 

01146 

10001 


ANA 

=255B8 

SAVE THE BITS IN POS. 1 - 8... 

00752 

0100 

00 

0 

00763 

10001 


TZE 

CMPT2 

TRANSFER IF ZERO. 

00753 

4130 

00 

0 

00000 

10000 


XCL 


• • * 

00754 

4754 

00 

0 

00000 

1CC00 


ZAC 


* • • 

00755 

0763 

00 

0 

00010 

10000 


LLS 

8 

• • • 

00756 

0400 

00 

0 

01134 

10001 


ADD 

TMP1 

...AND ADD THE H-ORDER PART. 

00757 

0140 

60 

4 

00002 

10000 


TOV* 

2,4 

TRANSFER OUT IF TOO MUCH. 

00760 

0602 

00 

0 

01134 

10001 


SLW 

TMP1 

SAVE THE H-ORDER PART. 

00761 

4500 

00 

0 

01147 

10001 


CAL 

=0777777777 

GET A MASK... 

00762 

0320 

00 

0 

01135 

10001 


ANS 

TMP2 

...AND BLANK OUT EXCESS BITS IN TMP2. 

00763 

0443 

00 

0 

01134 

10001 

CMPT2 

DLD 

TMP1 

RETURN THE RESULTS... 

00764 

4603 

60 

4 

00001 

10C00 


DST* 

1,4 

• • • 

00765 

0020 

00 

4 

00003 

10000 


TRA 

3,4 
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SECT. FLT. 

FLT-IS ENTERED THROUGH. . .TSX FLT .4 

-FLOATS THE DOUBLE PRIMITIVE IN L(UNO) AND LIUNO+1). 


SEE SECT. CMPT ABOVE FOR A DESCRIPTION OF THE D-PRIMITIVE 
FORMAT. 


00766 

4500 

00 

0 

01125 

10001 

FLT 

CAL 

UNO+1 

AFFIX AN EXP. TO THE L-ORDER PARI... 

00767 

4501 

00 

0 

01150 

10001 


ORA 

=1 55B8 

• • • 

00770 

0602 

00 

0 

01125 

10001 


SLW 

UNO+i 

• • • 

00771 

4500 

00 

0 

01124 

10001 


CAL 

UNO 

DO THE SAME FOR THE H-ORDER PART... 

00772 

0100 

00 

0 

01001 

1C001 


TZE 

X 

• • • 

00773 

0765 

00 

0 

00010 

10000 


LRS 

8 

• • • 

BINARY CARD 

ID. LOADOO20 






00774 

4501 

00 

0 

01151 

10001 


ORA 

= 190B8 

• • • 

00775 

0602 

00 

0 

01124 

1C001 


SLW 

UNO 

• m • 

00776 

4500 

00 

0 

01152 

10001 


CAL 

= 182B16 

• • • 

00777 

0763 

00 

0 

00010 

10000 


LLS 

8 

• • • 

01000 

0300 

00 

0 

01124 

10001 


FAD 

UNO 

• • • 

01001 

0300 

00 

0 

01125 

10001 

X 

FAD 

UNO+l 

NORMALIZE THE H-ORDER PART... 

01002 

4603 

00 

0 

01124 

10001 


DST 

UNO 

...AND SAVE THE D-RESULT. 

01003 

0020 

00 

4 

00001 

icooo 


TRA 

1.4 



SECT. STOR. 

STOR-IS ENTERED THROUGH. .. TSX STOR* A 

-STORES THE WORD IN ITEM AS OIRECTED. 
-RETURNS WITHOUT STORING IF TEST .NE. ZERO. 


01004 

0500 00 

0 

00117 

1C001 

STUR 

CLA 

01005 

4100 00 

4 

00001 

ICOOO 


TNZ 

01006 

4534 00 

1 

00065 

10C01 


LXD 

01007 

0443 00 

0 

01124 

10001 


OLD 

01010 

7 COCOO 

0 

01016 

10C01 

SW200 

TXL 

01011 

4603 60 

0 

01016 

1C001 


DST* 

0 1 J 1 2 

1 77776 

1 

01001 

10011 


TXI 

01013 

4500 00 

0 

00201 

10001 


CAL 

01014 

0630 00 

0 

01010 

10001 


STP 

01015 

0020 00 

0 

01020 

10001 


TRA 

01016 

0601 00 

1 

00000 

10000 

SLOC 

STO 

BINARY CARD . 

01017 

ID. L0AD0029 

1 77777 l 01001 

10011 


TXI 

01020 

4634 00 

1 

00065 

10C01 

SX1 

SXD 

01021 

0020 00 

4 

00001 

10000 


TRA 


TEST 

CHECK TEST... 

It 4 

...AND RETURN IF NON-ZERO. 

XRA,1 

SET UP XR1. 

ITEM 

GET THE DOUBLE WORD... 

SLOC » » 

*• • .AND TRANSFER FOR S-WORD. 

SLOC 

RELOCATE THE D-WORD. 

*+l,l,-2 

D-DECR. XR1. 

M3 

RESTORE SW200... 

SW200 

• • • 

SX1 


**f 1 

RELOCATE THE S-WORD. 



DECREMENT XR1... 

XRA, 1 

...AND SAVE IT. 

1.4 



ts2 

-4 
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CO IBMAP SUBR. LOAD - 6/21/65 - L.F.H* 


GOOF OUTPUT SECT. 

LGGOF - ENTERED FROM ENTRY SECT. FOR CALLING ERROR. 
PASS - ENTERED FROM ENTRY SECT. FOR EOF. 

PDMP - ENTERED FROM ENTRY SECT. FOR READING ERROR. 
CGOOF - ENTERED FROM ENTRY SECT. FOR C.C. 1 ERROR. 

HGOOF - ENTERED FROM SECT. HOP FOR C.C. 2 ERROR. 

DGOOFX - ENTERED FROM SECT. DOP FOR VAR. DEC. ERRORS. 
EGOOF - ENTERED FROM SECT. EOP FOR OCT. CONV. ERRORS. 

SGOOF - ENTERED FROM SECT. POP / SOP FOR SKIP ERROR. 


-A CALLING ERROR RESULTS IN JOB TERMINATION. 

-AN EOF RESULTS IN THE LOADING OF A -1 IN THE CALL. PROG. 
INDICATOR LOC. FOLLOWED BY A RETURN TO THE CALLER. 
THIS LOADING IS NOT EXECUTED IF A 1 HAS BEEN LOADED 
AS DESCRIBED BELOW. 

-A READING ERROR RESULTS IN A DUMP OF LOCATIONS 'CARO* TO 
•CARD+13 * FOLLOWED BY JOB TERMINATION. 

-CONVERSION ERRORS RESULT IN APPROPRIATE DIAGNOSTICS 

( LIMITED ONE TO A CARD ) AND THE LOADING OF A 1 IN 
THE CALL. PROG. INDICATOR LOC. 


01022 

0500 00 0 15000 

10011 

LGOOF 

CLA 

• UN06 • 

SET UP THE OUTPUT FILE... 

01023 

0621 00 0 01003 

10011 


STA 

*+3 

• « • 

01024 

0621 00 0 01004 

10011 


STA 

*+4 

m m m 

01025 

0074 00 4 11000 

10011 


TSX 

• OPEN * 4 

OPEN AS REQUIRED... 

01026 

5 GOOOO 0 00000 

10000 


MON 

** 

• • • 

01027 

0074 00 4 16000 

10011 


TSX 

.WRITE, 4 

OUTPUT THE SAD STORY... 

01030 

0 01002 0 00000 

11100 


PZE 

**, ,»+2 

* • • 

01031 

0 00012 0 01035 

10001 


IOCD 

TALE, ,10 

• ♦ • 

01032 

COOOOOOOOOOO 

00010 

X I T 

CALL 

.EXIT. 

STOP THE JOB. 

01032 

0074 00 4 05000 

loon 





01033 

1 00000 0 01002 

10011 





01034 

0 01136 0 01272 

10100 





01035 

006060606060 

10000 

TALE 

BCI 

5,0 


01036 

6C6060606060 

10000 





01037 

6G6C 60606060 

10000 





01040 

606060606060 

10000 





CARO : 

ID. L0A00030 






01041 

606060606060 

10000 





01042 

545454604346 

10000 


BCI 

5 , »** LOAO CALLING 

ERROR *•* 

01043 

212460232143 

10000 





01044 

433145276025 

10000 





01045 

515146516054 

10000 





01046 

545460606060 

10000 





01047 

0520 00 0 00117 

1C001 

PASS 

ZET 

TEST 

CHECK TEST... 

01050 

0020 00 0 00075 

10001 


TRA 

RET 

...TRANSFER IF TEST IS NOT ZERO. 

01051 

0500 00 0 01153 

10001 


CLA 

=-l 

SET UP THE EOF INDICATION... 

01052 

0601 60 0 01122 

10001 


STO* 

ELOC 

... 

01053 

0020 00 0 00075 

10001 


TRA 

RET 



TEST LOAD 



IBMAP 

SUBR. 

LOAD - 

6/21/65 

- L. 





POMP 

CALL 






ETC 






ETC 

01054 

000000000000 

00010 


ETC 

01054 

0074 00 4 

06000 

icon 



01055 

1 00003 0 

01005 

10011 



01056 

0 01136 0 

01304 

10100 



01057 

0 0CC00 0 

00101 

1C001 



01060 

0 00000 0 

00116 

1C001 



01061 

0 00000 0 

01154 

10001 



01062 

0020 00 0 

01032 

10001 


TRA 


BINARY CARD ID. L0AD0031 


01063 

0074 00 4 01105 

10001 

CGOOF 

TSX 

01064 

0074 00 4 01105 

10001 

HGOQF 

TSX 

01065 

0074 00 4 01105 

10001 

DG00F1 

TSX 

01066 

0074 00 4 01105 

10001 

DG0UF2 

TSX 

01067 

0074 00 4 01105 

10001 

DG00F3 

TSX 

01070 

0074 00 4 01105 

10001 

DG00F4 

TSX 

01071 

0074 00 4 01105 

10001 

DG00F5 

TSX 

01072 

0074 00 4 01105 

10001 

EGOOF 

TSX 

01073 

0074 00 4 01105 

10001 

SGGQF 

TSX 

01074 

016060606060 

10000 


BCI 

01075 

026060606060 

10000 


BCI 

01076 

246060606060 

10000 


BCI 

01077 

226060606060 

10000 


BCI 

01100 

256C60606060 

10000 


BCI 

01101 

476060606060 

1C000 


BCI 

01102 

252260606060 

10000 


BCI 

01103 

106060606060 

10000 


BCI 

01104 

624546606060 

10000 


BCI 

01105 

0500 00 4 00011 

1C000 

WGOOF 

CLA 

BINARY CARD ID. L0AD0032 




01106 

0601 00 0 00100 

10001 


STQ 

01107 

0500 00 0 15000 

icon 


CLA 

OHIO 

0621 00 0 01003 

10011 


STA 

01111 

0621 00 0 01004 

10011 


STA 

01112 

0074 00 4 11000 

icon 


TSX 

01113 

5 00000 0 00000 

10000 


MON 

01114 

0074 00 4 16000 

10011 


TSX 

01115 

0 01003 0 00000 

11100 


PZE 

01116 

4 00005 0 01035 

10001 


IOCP 

01117 

0 00C17 0 00100 

10001 


IOCD 

01120 

0500 00 0 01140 

10001 


CLA 

01121 

0601 00 0 00117 

10001 


STO 

01122 

0601 00 0 00000 

ICOOO 

ELOC 

STO 

01123 

7 00000 0 00035 

1C001 


TXL 


to 

VO 


H 
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PDUMP CHECK LOC. CARD TO CARO+13... 

(CARC 
,CARC+13 
? = 0 ) 


WGOOF ,4 

SET UP THE DIAGNOSTICS... 

WGOOF ,4 

• • m 

WGOOF, 4 

• • • 

WGOOF ,4 

i • • 

WGOOF, 4 

• • • 

WGOOF , 4 

• # • 

WGOOF, 4 

# 0 • 

WGOOF, 4 

• ♦ • 

WGOOF, 4 

• • • 

1.1 

ILLEGAL C.C. 1 OP. CHARACTER. 

1,2 

ILLEGAL C.C. 2 CHAR. IN H-CARD. 

l.D 

ILLEGAL CHAR. IN DEC. DATA FIELD 

l.B 

B PLACE PART TROUBLE. 

ItE 

DEC. EXP. TROUBLE. 

1,P 

PRINCIPAL PART TROUBLE. 

1 , EB 

+,- IN EXP. OR B PLACE PART. 

1.8 

OCTAL CONV. TROUBLE. 

ltSNC 

SKIP NO. TROUBLE. 

9,4 

... 


OATA 

... 


• UN06 • 

SET UP THE OUTPUT 

FILE... 

* + 3 

• ♦ • 


*+4 

• • • 


.OPEN, 4 

OPEN AS REQUIREO. . 

, . 

<* 

• • • 


.WRITE, 4 

OUTPUT DIAGNOSTIC 

AND CARD... 

**,,*+3 

• ♦ • 


TALE, ,5 

• • • 


DATA, ,15 

♦ • • 


= 1 

SET ERROR INDIC. 


TEST 

• * • 


»* 

• * • 


ROD,, 

NEXT CARD. 




00 

o 


TEST 


LOAD 
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IBMAP SUBR* LOAD - 6/21/65 - L.F.H . 


STORAGE SECT. 

STORAGE FOR D-PRECISIGN WORDS. 


01124 

300000000004 

00001 


EVEN 


01124 

200000000002 

00001 

UNO 

BSS 

2 

01126 

200000000002 

00001 

DENO 

BSS 

2 

01130 

2000C0000002 

00001 

DBNO 

BSS 

2 

01132 

cooooooooooo 

10000 

DZERQ 

OEC 

O.OEEO 


BINARY CARD ID. L0AD0033 


01133 

COOOOOOOOOOO 

10000 




01134 

200000C00001 

0C001 

TMP 1 

BSS 

1 

01135 

200000000001 

00001 

TMP2 

BSS 

l 


01131 


BNO 

EQU 

DBNO+1 


01127 


ENO 

EQU 

DENO+1 


01124 


ITEM 

EQU 

UNO 

01136 

OOOOOOOOOOOO 

10000 


*LDIR 


01137 

434621246060 

10000 




01140 

000000000001 

10000 


*LORG 



01141 COOOOOOOO 135 10000 

01142 C00000000033 10000 

01143 400000000010 10000 

01144 000000000010 10000 

01145 000000023420 10000 

01146 377000000000 10000 

01147 000777777777 10000 

01150 233000000000 10000 

01151 276000000000 10000 

01152 000554000000 10000 

01153 400000000001 10000 

01154 000000000000 10000 

00000 01111 


END 



TEST LOAO 

CONTROL DICTIONARY 

$CD ICT LOAD 

BINARY CARD ID. LGAD0035 


001155000000 


PREFACE 

C00004000005 

434621246060 

LOAD 

DECK 

0011 550C0000 
434621246060 

LOAD 

REAL 

COCOOQOGQOOQ 

434621246060 

LOAD 

REAL 

COQOOOOGOOOO 

COQGOOOOOODO 


EVEN 

1COOOOOO 1124 
332567316333 

.EXIT. 

VIRTUAL 

200Q0010Q000 

472464444760 

PDUMP 

VIRTUAL 


200000100000 

627062434623 SYSLOC VIRTUAL 

200000000000 

336445000533 .UN05. VIRTUAL 

200CQ000C0O0 

334647254560 .OPEN VIRTUAL 

200000000000 

335125212460 .READ VIRTUAL 

200000000000 

BINARY CARD ID. LOAD0036 

332626476333 .FFPT. VIRTUAL 

200000000000 

240125006060 D1E0 VIRTUAL 

200000000000 

336445000633 .UNC6 . VIRTUAL 

200000000000 

336651316325 .WRITE VIRTUAL 

200000000000 

$CKEND LOAD 


NO MESSAGES FOR THIS ASSEMBLY 


Co 
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L0AD0034 

ST A RT=0* LENGTH =621* TYPE® 7094 *CMPLX=5 

LOC=0,LENGTH=621 

LOC = 0 * LENGTH *0 

LGC=G* LENGTH=0 

LOC= 1 124 

SECT. 5, CALL 

SECT. 6, CALL 

SECT. 7 

SECT. 8 

SECT. 9 

SECT. 10 

SECT. 11 
SECT. 12 
SECT. 13 
SECT. 14 


L0AD0037 
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CO 

to 


TEST LOAD 

SYMBOL REFERENCE CATA 


REFERENCES TO CEFINEO SYMBOLS. 


CLASS 


SYMBOL 

VALUE 

REFERENCES 

BLK 

00171 

717 

BNC 

01131 

322,324 

CARD 

00101 

40,42,43,557,660,1057,1060 

CAS1 

00050 

53 

CAS2 

00163 

166 

CAS3 

00603 

606 

CGCGF 

01063 

51,54 

CHEK 

00520 

533 

CMPT1 

00741 

746 

CMPT2 

00763 

752 

CMPT 

00733 

216,223,227,707 

COP 

00074 

52 

C 

00064 

50 

09 

00211 

165,167 

DATA 

00100 

117,1106,1117 

DBLK 

00457 

202 

DBNO 

01130 

151,217,1136 

OB 

00410 

207 

DCMA 

00461 

127,201,441 

DCNT 

00241 

153,232,234,313,474 

CD 

00414 

206,420 

DEI 

00421 

416,417 

0E2 

00426 

413 

DENO 

01126 

150,224,1136 

DE 

00417 

130,205,424 

DGCQFl 

01065 

164 

DGC0F2 

01066 

220,363 

0GCGF3 

01067 

225,525,527 

DG0CF4 

01070 

231,246,510 

DGC0F5 

01071 

434,446 

DMIN1 

00447 

444 

DMIN2 

00451 

445 

DMIN3 

00455 

452 

DMIN 

00443 

203 

OOP 

00124 

73 

CPL 1 

00435 

433 

DPL 

00431 

210 

DPT 1 

00441 

430 

DPT 

00437 

204 

DSW 

00155 

125,160 

DW 

00157 

155 

OX 

00541 

553 

DY 

00542 

563 

CZERQ 

01132 

146 

D L 

00551 

156,221,226,235,241,432,436,442,450,454,456,576,630,633,647 

Dll 

00126 

516 

E 7 

00617 

605,607 

EBLK 

00634 

615 

ECM A 

00636 

614 

EGCOF 

01072 

604,620,623 

EINV 

00631 

627 


TC5T LOAD 

SYMBOL REFERENCE DATA 


06/21/65 


PAGE 


25 



ELOC 

01122 

16,21,1052 


EMIN 

00645 

616 


ENO 

01127 

257,272 


ECP 

00564 

72 


ESE r 

00566 

643 


Esm 

00620 

567,632 


CSW2 

00637 

571,646 


ESW3 

00643 

572,635 


esw 

00575 

565,600 


EWD 

01135 

573,621,626,636 


ew 

00577 

575 


FCNT 

00535 

152,236,240,255 


FINV 

00306 

260,273 


FIXS 

00466 

310,351,365,375,407 


FLC A r 

00251 

462 


FLT 

00766 

251 


H 10 

00671 

667,670 


HGCGF 

01064 

653 


HOP 

00650 

71 


INQ 

00242 

461 


INV 

00513 

475 


ITEM 

01124 

472,502,504,506,511,641,663,1007 


..0001 

00003 

12,13,14 


..0002 

00005 

4,7 


..0003 

00007 

0 


LGGOF 

01022 

20,25 


LOAD 

00000 

77 


LVJ1 

00533 

252 


LW 

00123 

75 


M3 

00201 

124,126,157,212,306,311,410,414,421,423,431,437,457,463,513,564,566,570,577,631,634,645,672, 

674,1013 


MASK 1 

GO 1 22 

41 


MASK 

00121 

17,24 


MO 

00120 

47,543,546,560,706,715 


NfNER 

00656 

654,671 


NINE 

00200 

163,652,702 


PASS 

01047 

37 


PDMP 

01054 

37 


PFIX 

00463 

250 


POP 

00672 

70 


PPART 

00227 

222 


GQ1 

00261 

274 


QQ2 

00264 

271 


CU3 

00270 

264 


QQ4 

00272 

256 


GQ5 

00300 

304 


QQ6 

00303 

300 


GQ7 

C0305 

265,267,302 


ROD 

00035 

66,74,517,644,666,732,1123 


REL 

00515 

473,477,505,512 


RET 

00075 

67,1050, 1053 


RND 

00506 

501 


RSHFr 

00366 

326 

LC1R 

BLCTR 



QUAL 

UNCS 



LC7R 

// 




00 

oo 
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CO 



SI 00700 716 

SBLK 00717 703 

SET 00536 161,601 

SGCCF 01073 711, 714, 720, 722 

SHFT1 0033 5 332, 347 

SHF T 2 00340 333 

SHFT3 00362 353 

SHFT4 00373 371 

SHFT5 00376 367 

SHFT6 00404 377 

SLCC 01016 23,1010,1011 

SMQ 00247 243 

SNC 01135 677,712,723,725 

SOP 00674 65 

STQR 01004 515,642,664 

SUB 00352 331 

SVN 00613 603 

SW100 00432 142,426 

SW101 00433 143,213,451 

SW130 00444 144,427 

SW131 00445 145,214,435 

SW1 00215 131,411,422,443 

SW200 01010 312,415,465,476,514,1014 

SW2 00222 132,215,425 

SW3 00235 133,440 

SW50 00467 137,447 

SW5 1 00516 140,460 

SW55 00473 141,307,464 

SW6 00256 134,455 

SW7 00310 135,412,500 

S VI 8 00321 136,453 

SWA 00724 675 

SX1 01020 1015 

TALE 01035 1031,1116 

TEMP 00534 211,617,625,705,747 

TENNER 00667 655 

TEST 00117 26,1004,1047,1121 

THERE 00532 523 

TMP 1 01134 520,531,676,710,735,741,743,744,745,756,760,763 

7MP2 01135 530,650,733,750,762 

UNO 01124 147,230,242,247,263,277,305,315,336,341,350*355,364,374,402,405,406,466,766,770,771,775, 

1000,1001,1002,1136 

WGOOF 01105 1063,1064, 1065,1066,1067,1070,1071,1072,1073 

XIT 01032 1062 

XR2 00203 541,552,555 

XRA 00065 27,727,731,1006,1020 

XRB 00202 537,556,562 

XRC 00204 547,551 

X 01001 772 

REFERENCES TC VIRTUAL SYMBOLS. 

01E0 12 266,270,301,303 

.EXIT. 5 1032 

. FFPT . 11 123 



TEST LOAO 

SYMBOL REFERENCE DATA 


.OPEN 

9 

33,1025,1112 

.READ 

10 

35 

• UNO 5 • 

8 

30 

.UN06 . 

13 

1022,1107 

.WRITE 

14 

1027,1114 

PDUPP 

6 

1054 

SYSLOC 

7 

10 


CO 

Cn 
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Co 

On 


TEST TA610 

ASSEMBLED TEXT. 

STEXT TAB 10 


ENTRY 

BINARY CARD (NOT PUNCHED) 

0C000 30GGQ00GG002 00C01 EVEN 

OOOOC 377454732312 10000 DE38 DEC 

00001 34441324154 2 10000 

00002 373741367020 10000 

00003 340653551067 10000 

00004 37C601137163 10000 

00005 335674440705 10000 

00006 365464114134 10000 

00007 332543515404 1C0C0 

00010 361755023372 10000 

00011 326554174007 10000 

00012 356612334310 10000 

00013 323443311471 10000 

00014 353473426555 10000 DEC 

00015 320202556055 10000 

0CO16 34777067574 2 10000 

00017 314004260111 1COOO 

00020 344623713116 10000 

00021 311320214724 10000 

BINARY CARD (NOT PUNCHED) 

00022 341503074076 lOCOO 

00023 306563327103 10000 

00024 336402374713 10000 

00025 303617422402 10000 

C0026 332635456171 10000 

00027 277177204004 IGOOO 

00030 327512676455 10000 DEC 

00031 274631003151 10000 

00032 324410545213 10000 

00033 271024002441 10000 

00034 320647410336 10000 

00035 265354635550 ICOOO 

00036 315522640261 10000 

00037 262760512755 10000 

00040 312417031701 10000 

00041 257446725444 lOCOO 

00042 306661534465 10000 

00043 253561357240 10000 

00044 303532743536 IGOOO DEC 

BINARY CARD (NOT PUNCHED) 

00045 250132614200 10000 

00046 300425434430 10000 

00047 245110475000 10000 

00050 274674055531 10000 
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TAB10001 

SIMULATION ROUTINE. 

-SIMULATES A PART OF DECK FCNV. 

-TO BE USED TO SCALE D-PRECISION DECIMAL DATA. 

D1E0 

1.0EE+38»1.0EE+37,1.0EE+36*1.0EE+35» 1.0EE+34, 1 .OEE+33 


1.0EE+32,1.0EE+31,1.0EE+30, 1 . 0EE+29 , 1 .0EE+28 , 1.0EE+27 


1.0EE+26, 1.0EE+25, 1.0EE+24, l.OEE+23, 1.0EE+22, l.OEE+21 


1.0EE+20, 1.0EE + 19,1.0EE+18,1.0EE*-17 f l.OEE + 16, 1.0EE + 15 



TEST TAB10 

ASSEMBLED TEXT. 


00051 

241647310000 

ICOOO 


00052 

271543212741 

10000 


00053 

236354240000 

10000 


00054 

266434157115 

10000 


00055 

233760200000 

ICOOO 


00056 

262706576511 

10000 


00057 

227432000000 

10000 


00060 

257553630407 

10000 

DEC 

00061 

224510000000 

10000 


00062 

254443023471 

10000 


00063 

2212400C0000 

10000 


00064 

25072152245C 

1CC00 


00065 

215400000000 

1CC00 


00066 

245564416672 

10000 


00067 

212000000000 

ICOOO 


CARD i 

(NOT PUNCHED) 



00070 

242452013710 

10000 


00071 

207000000000 

10000 


00072 

236734654500 

10000 


00073 

203C00000000 

10000 


00074 

233575360400 

ICOOO 

DEC 

00075 

200000000000 

ICOOO 


00076 

230461132000 

10000 


00077 

175000000000 

10000 


00100 

224750220000 

10000 


00101 

171000000000 

10000 


00102 

221606500000 

10000 


00103 

166000000000 

10000 


00104 

216470400000 

10000 


00105 

163000000000 

10000 


00106 

212764000000 

ICOOO 


00107 

157000000000 

10000 


00110 

207620000000 

10000 


00111 

154000000000 

10000 


00112 

204500000000 

10000 

DEC 

CARD 1 

[NOT PUNCHED) 



00113 

151000000000 

10000 


00114 

2014C00C0000 

10000 D1E0 

DEC 

00115 

146000000000 

10000 



00000 

01111 

END 


CO 

<1 
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1.0EE+14,1.0EE+13, 1.0EE+12, l.OEE+11. 1.0EE+10, 1.0EE+9 


1.0EE+8,1.0EE+7,1.0EE+6, l.OEE+5, 1.0EE+4, 1.0EE+3, l.OEE+2 


l.OEE+O 



CO TEST TAB10 

0° CONTROL DICTIONARY 

SCO I CT TAB10 


BINARY CARD (NOT PUNCHED) 

000116000000 PREFACE 

000004000005 

632122010060 TAB10 DECK 

000116000000 

COOOOOOOOOOO EVEN 

100000000000 

240125006060 D1E0 REAL 

COOOOOOOO 1 1 4 

SDKEND TAB 10 


NO MESSAGES FOR THIS ASSEMBLY 


06/21/65 


PAGE 32 


T AB 10002 

START=0»LENGTH=78,TYPE=7094,CMPLX=5 

LQC=0 f LENGTH=78 

LOC = C 

LQC=114fLENGTH=0 

TAB10003 


06/21/65 


PAGE 33 


w 

TEST 


TAB10 

SYMBOL REFERENCE DATA 


REFERENCES TO DEFINED SYMBOLS. 


CLASS 

SYMBUL 

VALUE 

REFERENCES 


C1E0 

00114 



DE38 

00000 


LCTR 

BLCTR 



CUAL 

UNCS 



LCIR 

// 




CO 

VO 
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000000000000 
000000000000 
000000000010 
000000000177 
1 76400000000 
200700000000 
002663437347 
100000000000 
IdOOOOCOOOOQ 
lOOOOOOCOOOO 
100000000000 
OOOOC14COOOO 
176400000000 
172400000000 
002663437347 
245400000000 
200777400000 
000000000000 
000102030405 
606060606060 
500000000000 


OCO^OOOOOOOl 
400 300000000 
400^00000010 
0C0C00003777 
604400000000 
203700000000 
172400000000 
020000000000 
020000000000 
020000000000 
020000000000 
000:01700000 
143000000000 
1 37000000000 
OCOGOOOOOCOO 
212300000000 
145000000000 
OCOOOOOCOOOO 
060710112122 
606C63303162 
500000000000 


000000000012 
400000000001 
OOOOOOOIOOUQ 
000000077777 
207400000000 
2077 7400C000 
175631463146 
003000000000 
003000000000 
0030 COOOOQuQ 
003000000000 
000001770000 
6044000000u0 
2037 OOOOCOoO 
040625513677 
246400000000 
200777600000 
000000000000 
232425262730 
603162606330 
5000000000UG 


000000000123 
4000000U0012 
000000200000 
000001777777 
215400000000 
213777600000 
211500000000 
000400000000 
000400000000 
000400000000 
000400000000 
000000001750 
551000000000 
150000000000 
005523263217 
2 1300000000G 
145000000000 
000000000000 
314142434445 
256025452460 
500000000000 


000000001234 

377777777777 

000004000000 

C0G037777777 

221400000000 

217777770000 

214500000000 

U00050000000 

C00050000000 

000050000000 

000050000000 

C00000000002 

207400000000 

217777770000 

341503074076 

247400000000 

200777700000 

uOOOOOOOGOOO 

464750516263 

462660652143 

500000000000 


000000012345 

777777777777 

000100000000 

000777777777 

225400000000 

223777777400 

224750220000 

000006000000 

000006000000 

000006000000 

000006000000 

000000000000 

154000000000 

164000000000 

306563327102 

214000000000 

145000000000 

000000000000 

646566677071 

312460242163 

500000000000 


000000123456 

777777777777 

002000000000 

017777777777 

231400000000 

227777777760 

341503074077 

000000700000 

000000700000 

000000700000 

000000700000 

031463146315 

235400000000 

233777777777 

377454732312 

250400000000 

200777740000 

000000000000 

137353331474 

213360606060 

500000000000 


000001234567 
777777777777 
040000000000 
377777777777 
235400000000 
233777777777 
377454732313 
000000100000 
000000100000 
000000100000 
000000100000 
200000000000 
202000000000 
200000000000 
34441324154 2 
215000000000 
145000000000 
000000000000 
543420004060 
606060606060 
500000000000 


LOAD TEST 


PAGE 2 


1 * 

D 0* 

P 0343597 3836 8 

8 D1B0 

B * D256B8 

6 D1E39 

E DIE-39 

E 01039 

E 010-39 

P 09.999999999999999999999999999999 

B 06.4E2B6 

EB D1.E-+3 

EB D1.E+-3 

EB D1B+-17 

EB D1B-+17 

8 E8 

8 €1234567654321 

2 H* 

SNO P* 

SNO P10000 

*** LOAD CALLING ERROR #** 


00 
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C* 


SDATA 


.•.TEST DATA FOR SUBROUTINE LOAD... 

NOTE. A BLANK IN C.C.l IS EQUIV. TO A C IN C.C.l. 

NOTE. IN THE D.P. DATA BELOW, A -D- MAY BE REPLACED BY A -EE-. 

NOTE. THE GROUPS OF DATA ARE SEPARATED BY EOF-S. 

NOTE. AN EOF IS NUT EXACTLY EQUIV. TO AN -R- CARD. 

NOTE. THE REACTION OPTION TO AN EOF RESIDES IN THE CALLING ROUTINE. 
NOTE. SKIPPING OVER PREVIOUSLY LOADED DATA IS PROGRAMMED. 


D168 


...OCTAL DATA... 

E0»1 ,12,123,1234,12343, 123456,1234567 

E ,-,-1,-12, 3 77777777777,-377777777777, 777777777777,-777777777777 
-EOF. 

P17 SKIP. 


...INTEGER DATA... 

D8,-8 ,4096,65536,1048576,16777216,268435456,4294967296 
D127,2047,32767,524287,83b8607, 1342 17727, 2 147483647, 34359738 367 
-EOF. 

P33 SKIP. 


...S.P. FLOATING PT . DATA... 

DO. 12 5, -b. ,64., AU96. ,63536. *1048576. >16777216. ,268435456. 
DO .873, 7. ,127. ,2 04 7., 32767. ,524287 • ,8368607 .,134 217727. 
DlE-3b,7.8123E-3»lE-l,3.2E2,2.36E3,lE6*lE29,lE38 
-EOF. 

P37 SKIP. 


...S.P. FIXED PT. DATA... 
Dlb2*2B3,3B8,4Bll,3bl4,6B17,7B20*8B23 

D64b8»12bbll>l92bl4,256Bl7*320B20,384b23,448b26,3i2B29 

D6.4ElBb,1.2oE2Bll,1.92E2B14,2.36E2Bl7,3.2E^B20,3.b4E^B23,4.4bE2B26,3.12E2B29 
D6.4bbEl,1.2bBllE2,1.92Bl4E2,2.36bl7E2,3.2B20E2,3.84B23E2,4.48B26E2,3.12b29F 
D1 .3B17 ,1.6 7 3bl 7 ,1.9b4373bl7 , lE3ts33»lE3B44»lE3b32, .160,1 .2 5E-1B-? 

-EOF. 

P97 SKIP. 


...D.P. FLOATING PT. DATA... 

D1 • 25D-1 ,-8DO ,6 .4D1 ,268433436 DO 
D7.8123D- 3, 7D0, 3.2767 D4,134217727D0 
D1D-38,1D-29,1D29,1D38 

D68719476736. , 137438953472. ,274877906944 ., 5497558 13888 . 

DO .99 90234373, 0.V99511718 7 5, 0.999755859375, 0.9998779296875 
-EOF. 

P13 7 SKIP. 


Eo, 

DO#U.u,D, , 


...ZEROES... 



NASA- Langley, 1966 G-611-N 


c 

C ...bCI WORD DATA... 

C 

H8 0123A36789AbCDEFGH I JKLMNOPURSTUVWX YZ= *$.- ( * )+0- 
H8 THIS IS THE END OF VALID DATA. 

R 


. . .GENERATE 

••.the 


A SAMPLE LIST OF DIAGNOSTICS... 
DATA bELOW IS INVALID... 


D* 

D3A359736368 

Dlbu 

D256B8 

D1E39 

DIE-39 

D1D39 

D1D-39 

•D9. 999999999999V99999999999999999 

D6.AE2B6 

D1.E-+3 

D1.E+-3 

D1B+-17 

D1B-+17 

E8 

El 2 34367634321 
H* 

P* 

PlOuuu 

-EOF. 

92 CARDS 


<1 



"The aeronautical and space activities of the United States shall he 
conducted so as to contribute ... to the expansion of human knowl- 
edge of phenomena in the atmosphere and space. The Admini strati on 
shall provide for the widest practicable and appropriate dissemination 
of information concerning its activities and the results thereof /' 

— National Aeronautics and Space Act of 1958 


NASA SCIENTIFIC AND TECHNICAL PUBLICATIONS 


TECHNICAL REPORTS: Scientific and technical information considered 
important, complete, and a lasting contribution to existing knowledge. 

TECHNICAL NOTES: Information less broad in scope but nevertheless 

of importance as a contribution to existing knowledge. 

TECHNICAL MEMORANDUMS: Information receiving limited distri- 

bution because of preliminary data, security classification, or other reasons. 

CONTRACTOR REPORTS: Technical information generated in con- 

nection with a NASA contract or grant and released under NASA auspices. 

TECHNICAL TRANSLATIONS: Information published in a foreign 

language considered to merit NASA distribution in English. 

TECHNICAL REPRINTS: Information derived from NASA activities 

and initially published in the form of journal articles. 

SPECIAL PUBLICATIONS: Information derived from or of value to 

NASA activities but not necessarily reporting the results of individual 
NASA-programmed scientific efforts. Publications include conference 
proceedings, monographs, data compilations, handbooks, sourcebooks, 
and special bibliographies. 


Details on the availability of these publications may be obtained from: 


SCIENTIFIC AND TECHNICAL INFORMATION DIVISION 

NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 

Washington, D.C 20546 



